ggplot构面网格条形图上的不同y限制？

您可以在使用时为不同的面创建单独的y范围geom_point，但是我不知道使用的方法geom_bar。要使用facet_wrap和设置特定的y范围，geom_bar我知道的唯一方法是创建单独的图，然后grid.arrange从gridExtra包中将它们并排放置。（使用不降为零的垂直比例会夸大点/条之间的差异，这可能会引起误解，但您必须确定它是否适合您的特定情况。）

首先，这里是geom_point版本：想法是创建一个“虚拟”数据框，其中包含您想要的ylim上下限值，然后使用绘制它们geom_blank。geom_blank不会绘制任何内容，但是添加此几何图形将确保轴范围是您希望每个小平面的范围。

ddummy = data.frame(day=NA, variable=rep(c("avg1", "avg2"), each=2), 
               value=c(0.5*max(df$value[df$variable=="avg1"]), 
                       1.1*max(df$value[df$variable=="avg1"]),
                       0.5*max(df$value[df$variable=="avg2"]), 
                       1.1*max(df$value[df$variable=="avg2"])))

g <- ggplot(df, aes(x=day, y=value))

g + geom_point() + 
  geom_blank(data=dummy, aes(day, value)) +
  facet_grid(variable ~ ., scales="free")

这是单独的地块，与grid.arrange：

avg1 = ggplot(df[df$variable=="avg1",], aes(x=day, y=value)) +
  geom_bar(stat="identity") +
  facet_wrap(~variable) +
  coord_cartesian(ylim=c(300,500))

avg2 = ggplot(df[df$variable=="avg2",], aes(x=day, y=value)) +
  geom_bar(stat="identity") +
  facet_wrap(~variable) +
  coord_cartesian(ylim=c(3.5,8))

gridExtra::grid.arrange(avg1, avg2, ncol=2)

要使用geom_segment（根据您的评论），您可以这样做：

library(dplyr)

ggplot(df %>% group_by(variable) %>%
         mutate(ymin=0.5*max(value))) +
  geom_segment(aes(x=day, xend=day, y=ymin, yend=value), 
               size=5, colour=hcl(195,100,65)) + 
  facet_grid(variable ~ ., scales="free")