ggplot2画图，柱状填充图中如何添加正确的文字？

在用ggplot2画柱状图时，需要每根柱子分几段，以显示百分比。

如下图，很明显第三根柱子的数字是错的，应该80%对应红色，20%对应蓝色。问题是，如何添加正确的百分比？
十分感谢！


源代码如下：

1. city<-c(        '北京', '上海',  '天津','天津')
   
2. level<-c('3','3', '2','4+')
   
3. rate<-c(1, 1, 0.8,0.2)
   
4. rate2<-c('1', '1', '0.8','0.2')
   
5. data1<-data.frame(city,level,rate,rate2)
   
6. colnames(data1)<-c('city','level','rate','rate2')
   
7. 
   
8. p <- ggplot(data = data1, aes(x=city,y=rate, fill = level))  ##  图形数据
   
9. p <- p + geom_bar( stat = "identity",width = 0.4, position="stack")   
   
10. p <- p + geom_text(label=paste(data1$rate*100,'%',sep = ''),colour = "black", vjust=00)  
    
11. p <- p + labs(x="",y="份额\n",title = "各省各级别分布\n", fill = "级别")  
    
12. p <- p + scale_y_continuous(labels = percent, breaks = seq(0, 1, 0.2))  
    
13. p <- p + theme( plot.title = element_text(size = 16, face = "bold"))
    
14. p

复制代码

city<-c(        '北京', '上海',  '天津','天津')
level<-c('3','3', '2','4+')
rate<-c(1, 1, 0.8,0.2)
rate2<-c('1', '1', '0.8','0.2')
data1<-data.frame(city,level,rate,rate2)
colnames(data1)<-c('city','level','rate','rate2')

p <- ggplot(data = data1, aes(x=city,y=rate, fill = level))  ##  图形数据
p <- p + geom_bar( stat = "identity",width = 0.4, position="stack")   
p <- p + geom_text(label=paste(data1$rate*100,'%',sep = ''), colour = "white",
                   position=position_stack(.9), vjust=1.5)  
p <- p + labs(x="",y="份额\n",title = "各省各级别分布\n", fill = "级别")  
p <- p + scale_y_continuous(labels = percent, breaks = seq(0, 1, 0.2))  
p <- p + theme( plot.title = element_text(size = 16, face = "bold"))
p


试试这样

city<-c(        '北京', '上海',  '天津','天津')
level<-c('3','3','4+','2')
rate<-c(1, 1, 0.2,0.8)
rate2<-c('1', '1', '0.8','0.2')
data1<-data.frame(city,level,rate,rate2)
colnames(data1)<-c('city','level','rate','rate2')

p <- ggplot(data = data1, aes(x=city,y=rate, fill = level))  ##  图形数据
p <- p + geom_bar( stat = "identity",width = 0.4, position="stack")   
p <- p + geom_text(label=paste(data1$rate*100,'%',sep = ''),colour = "black", vjust=00)  
p <- p + labs(x="",y="份额\n",title = "各省各级别分布\n", fill = "级别")  
p <- p + scale_y_continuous(labels = percent, breaks = seq(0, 1, 0.2))  
p <- p + theme( plot.title = element_text(size = 16, face = "bold"))
p

谢光法 发表于 2015-4-9 12:51
city

感觉您这样没能解决根本问题，谢谢！

不明觉厉啊

初学,可以请教下breaks = seq(0, 1, 0.2)是控制哪里的参数吗?

不用ggplot画也还可以

谢光法 发表于 2015-4-9 12:51
city

标题如何居中显示，谢谢
+labs(x="学生",y="数学",title="学生成绩")
最后标题没有居中