带有躲避条纹的geom_text

概述我尝试添加文本,如 Position geom_text on dodged barplot 但它不适合我的简单数据 data=data.frame(s=c(10,13,17,8), pr=c("a","b","a","b"), m=c(rep(as.Date('01.01.2015','%d.%m.%Y'),2), rep(as.D 我尝试添加文本,如 Position geom_text on dodged barplot
但它不适合我的简单数据

data=data.frame(s=c(10,13,17,8),pr=c("a","b","a","b"),m=c(rep(as.Date('01.01.2015','%d.%m.%Y'),2),rep(as.Date('01.02.2015',2)))

和ggplot

ggplot(data = data,aes(x = m,y = s,fill=pr,ymax = max(s)*1.1))+  geom_bar(position = "dodge",stat="IDentity")+  geom_text(aes(y=s/2,label=paste(round(s,3),"%")),position = position_dodge(wIDth=1))+  scale_x_date(labels = date_format("%m/%y"),breaks = date_breaks("months"))

我明白了

如何在正确的位置添加文本(在每个栏的中间)？
谢谢！

解决方法 你可以试试

ggplot(data = data,aes(x = as.factor(m),ymax = max(s)*1.1)) +   geom_bar(position = "dodge",stat="IDentity") +   geom_text(aes(y=s/2,position = position_dodge(.9)) +   scale_x_discrete(labels = function(x) format(as.Date(x),"%m/%y")) +   xlab("m")

总结

以上是内存溢出为你收集整理的带有躲避条纹的geom_text全部内容，希望文章能够帮你解决带有躲避条纹的geom_text所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。