修复ggplot2中溢出的x轴文本

Question

我创建了自定义的，两级x轴条目，这些条目往往工作得很好。唯一的问题是，当我的Y轴比例接近1时，这些轴入口溢出到图表区域。当我使用vjust手动改变它们的垂直位置时，每个条目的一部分被图表边界隐藏。

有关如何使图表边界动态调整以适应大的y轴值和每个条目的全文（无需运行到图表）的任何建议。

看一看下面的例子：

library(ggplot2) 

GroupType <- rep(c("American","European"),2) 
Treatment <- c(rep("Smurf",2),rep("OompaLoompa",2)) 
Proportion <- rep(1,length(GroupType)) 
PopulationTotal <- rep(2,length(GroupType)) 

sampleData <- as.data.frame(cbind(GroupType,Treatment,Proportion,PopulationTotal)) 

hist_cut <- ggplot(sampleData, aes(x=GroupType, y=Proportion, fill=Treatment, stat="identity")) 

chartCall<-expression(print(hist_cut + geom_bar(position="dodge") + scale_x_discrete(breaks = NA) + 
geom_text(aes(label = paste(as.character(GroupType),"\n[N=",PopulationTotal,"]",sep=""),y=-0.02),size=4) + labs(x="",y="",fill="") 
)) 

dev.new(width = 860, height = 450) 
eval(chartCall) 

有关如何解决马虎x轴的文字有什么想法？

提前许多感谢， 亚伦

Answer 1

不幸的是，你必须要管理y轴你自己 - 还有目前没有办法GGPLOT2找出你多少额外的空间需要，因为所需的物理空间取决于大小剧情。使用例如expand_limits(y = -0.1)为文本预留一点额外的空间。