时间戳

首页 > 解决方案 > ggplot循环中绘图大小的大小写取决于大小写

r - ggplot循环中绘图大小的大小写取决于大小写

问题描述

我在一个循环中运行了几个 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大小写，具体取决于值。我已经尝试过使用 eg expand_limits(y = max(df$value * ifelse(df$value <= 50, 0.6, 1)))，但这并不像我希望的那样工作。任何建议将不胜感激！

标签： rloopsggplot2scalegeom-bar

解决方案

根据@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)))。

推荐阅读