修复 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) 为文本预留一点额外空间。