修復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)爲文本預留一點額外的空間。