我在一个循环中运行了几个ggplot条形图,包括在每个条形图顶部添加的文本。我通过coord_fixed
和expand_limits
定义了绘图比例。不幸的是,y轴与绘图不同,因此刻度设置不适合所有情况,即文本被截断和/或轴被压缩。让我说明一下:
period <- c(rep("A",4),rep("B",4))
group <- rep(c("C","C","D","D"),2)
size <- rep(c("E","F"),4)
value <- c(23,29,77,62,18,30,54,81)
df <- data.frame(period,group,size,value)
library(ggplot2)
for (i in levels(df$group))
{
p <- ggplot(subset(df, group==i), aes(x=size, y=value, fill = period)) +
geom_bar(position="dodge", stat="identity", show.legend=F) +
geom_text(data=subset(df, group==i), aes(x=size, y=value,label=value),
size=10, fontface="bold", position = position_dodge(width=1),vjust = -0.5) +
expand_limits(y = max(df$value)*0.6) +
coord_fixed(ratio = 0.01)
ggsave(paste0("yourfilepath",i,".png"), width=7.72, height=4.5, units="in", p)
}
我希望coord_fixed
和expand_limits
的设置区分大小写,取决于价值。我已尝试使用例如expand_limits(y = max(df$value * ifelse(df$value <= 50, 0.6, 1)))
,但这不符合我的希望。任何建议将不胜感激!
根据@ Z.Lin的评论,我在我的df$value[df$group==i]
函数中添加了ifelse
参数:expand_limits(y = max(df$value[df$group==i] * ifelse(df$value[df$group==i] <= 50, 5, 8)))
。