ggplot yatay gruplandırılmış çubuk arsa barları yeniden sıralamak değer veren bir kaldırma ızgara çubuğu ekleyin 2

Question

Merhaba bu benim sahte bir veridir:

year<-c(rep(2010,3),rep(2011,3),rep(2012,3)) 
value<-rnorm(9,10,5) 
nation<-rep(c("a","b","c"),3) 
fake<-data.frame(year,value,nation) 

ve bu zaten var kodudur:

ggplot(data=fake, aes(x=year, y=value, fill=nation)) + 
geom_bar(stat="identity",width=0.5, position=position_dodge())+ 
scale_fill_manual(values=c("#006600", "#007f00","#009900"),name="Experimental\nCondition")+ 
scale_x_continuous(breaks=seq(2010,2015,1),name="year")+ 
scale_y_continuous(breaks=F,name="value")+ 
theme(legend.title=element_blank(),plot.title = element_text(lineheight=0.9, face="bold"))+ 
ggtitle("arbitrary nation values in arbitrary years")+ 
coord_flip() 

Yapmaya çalıştığım her bir çubuğun içine değerler eklemek, arka plandaki ızgaraları kaldırmak ve her yıl en yüksek değerden en düşük değerlere kadar yeniden düzenlemek, böylece çubukların sırası farklı yıllarda farklı olacaktır. Ve belki son bir şey sol alt köşede bu küçük sıfırdır. Grafiğin ilk versiyonunda X ekseninde sayılar vardı, ancak bunları kaldırmak için karar verdim, bu yüzden yaptım ama sıfır devam ediyor. Bazı grafik editörleri silmek mümkün ama sanırım bu düşünce kodu yapılabilir.

sana bu kodu göndereceğiz, neredeyse istediğini var her önerileri

Answer 1

için çok teşekkür ederim. Barpots'u yıllara göre yeniden düzenlemek için reorder() komutunu kullanarak bir şeyler yapabilirsiniz.

ggplot(data=fake, aes(x=year, y=value, fill=nation)) + 
    geom_bar(stat="identity",width=0.5, position=position_dodge())+ 
    scale_fill_manual(values=c("#006600", "#007f00","#009900"),name="Experimental\nCondition")+ 
    scale_x_continuous(breaks=seq(2010,2015,1),name="year")+ 
    scale_y_continuous(breaks=F,name="value")+ 
    theme(legend.title=element_blank(),plot.title = element_text(lineheight=0.9, face="bold"))+ 
    geom_text(aes(label = round(value, digits=2)), size = 5, position = position_dodge(width = 0.5), hjust=1)+ 
    ggtitle("arbitrary nation values in arbitrary years")+ 
    coord_flip()+ 
    theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
     panel.background = element_blank(), axis.line = element_line(colour = "black"))