使用ggplot2在facet躲避条形图上添加文本

发布时间：2020-12-14 18:48:30 所属栏目：资源来源：网络整理

导读：我想在两年内制作一个躲避的条形图,并将收入数字放在相应的栏上.在尝试了一些我在这里找到的建议之后,我仍然无法得到我想要的东西(所有数字都显示在中间条/列的中间而不是均匀分布).任何建议将不胜感激.谢谢！我的最新尝试 # Disable scientific notationop

我想在两年内制作一个躲避的条形图,并将收入数字放在相应的栏上.在尝试了一些我在这里找到的建议之后,我仍然无法得到我想要的东西(所有数字都显示在中间条/列的中间而不是均匀分布).任何建议将不胜感激.谢谢！

我的最新尝试

# Disable scientific notation
options("scipen" = 100,"digits" = 1)

censusData <- structure(list(Year = c(2012L,2007L,2012L,2007L
                                      ),County = c("A","A","B","C","Sum","Sum"),variable = structure(c(1L,1L,2L,3L,3L),.Label = c("Total_Revenue","Crop_Revenue","Livestock_Revenue"
                                      ),class = "factor"),value = c(1645.51,1203.806,68.911,60.949,923.163,525.918,2637.584,1790.673,1069.497,787.459,47.157,38.735,825.050228,470.024,1941.704228,1296.218,576.013,416.347,21.754,22.214,98.112772,55.894,695.879772,494.455
                                      )),row.names = c(NA,-24L),.Names = c("Year","County","variable","value"),class = "data.frame")

# Dodged barplot
qbarplot_yr_1 <- ggplot(censusData,aes(County,value)) + facet_grid(. ~ Year) +  
  geom_bar(aes(fill = variable),position = "dodge",stat="identity") +
  xlab("County") + ylab("Revenue (Million USD)") +
  scale_fill_discrete(name = 'Legend',labels=c("Total","Crop","Livestocks")) +
  theme(axis.ticks.x = element_blank()) +
  theme(panel.background = element_rect(colour='dark grey')) +
  theme(strip.text.x = element_text(size = 20,face="bold"),strip.background = element_rect(colour="dark grey"))

# Add text on top of the bar
qbarplot_yr_1 + geom_text(data = censusData,aes(x = County,y = value + 150,label = format(value,nsmall = 0,scientific = FALSE)),color="blue")

解决方法

您还需要躲避文本值.尝试

qbarplot_yr_1 + geom_text(data = censusData,group=variable,digits=1,color="blue",position=position_dodge(.9),hjust=.5)

我们还需要group =所以它知道要躲避哪些值.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!