Ggplot2标记多层条形图

我要做的是在下面的示例中用它们各自的数据标签标记两个gem_bar()。到目前为止,我只能让其中一个出现:

dp-():

x<-structure(list(variable=c(“a”,“b”,“c”),f=c(0.98,0.66,
0.34),m=c(0.75760989010989,0.24890977443609,0.175125)),.name=c(“变量”,
“f”,“m”),row.name=c(na,3l),class=“data.frame”)。

ggplot(x,aes(variable,f,label=粘贴(f*100,“%”,sep=“)))+
GeoMuxBar()+
geom_文本(大小=3,hjust=1.3,colour=“white”)。+
geom_bar(aes(variable,m,label=粘贴(m*100,“%”,sep=“)),fill=“紫色”)。+
COODION FLIP()
< /代码> 



看看黑色的内部是如何有一个数据标签的。在同样的情节中,我想在紫色的内部做同样的事情。

dp-():

x <- structure(list(variable = c("a", "b", "c"), f = c(0.98, 0.66, 
0.34), m = c(0.75760989010989, 0.24890977443609, 0.175125)), .Names = c("variable", 
"f", "m"), row.names = c(NA, 3L), class = "data.frame")

ggplot(x, aes(variable, f, label=paste(f*100,"%", sep=""))) + 
geom_bar() + 
geom_text(size=3, hjust=1.3, colour="white") +
geom_bar(aes(variable, m, label=paste(m*100,"%",sep="")), fill="purple") + 
coord_flip()




看看在黑色的内部如何有一个数据标签。在同样的情节中,我想在紫色的内部做同样的事情。