使用 facet wrap 设置单个 y 轴限制而不是使用 scale free_y

Question

我有这个数据

library(ggplot2)

dat = data.frame(x = c(1,2,1,2), 
                 group = c("a","a","b","b"), 
                 y = c(10,20,1000,2000))

ggplot(dat, aes(x = x, y = y)) + 
    geom_point() + 
    geom_line() + 
    facet_wrap(~group, ncol = 1) +
    coord_cartesian(ylim = c(0, 30))

你可以看到 B 组没有出现，因为我将 y 限制设置为 0,30。我想为每个图表手动设置单独的 y 限制。我不想使用scales = "free_y"，因为我需要控制每个图表中的限制。

有没有办法做到这一点？你能以某种方式为分面包装中的每个图表提供 y 限制吗？

Answer 1

除非您想减小绘图区域（即不绘制某些点），否则您仍然可以在使用 scales = "free_y" 时“完全”控制您的 y 限制。

您可以使用我给出的相同技巧来回答您的其他问题：how to set limits on rounded facet wrap y axis?

dat <- data.table(dat)

dat[,y_min := y*0.5, by = group]
dat[,y_max:= y*1.5, by = group]

ggplot(dat, aes(x = x, y = y)) + 
  geom_point() + 
  geom_line() + 
  facet_wrap(~group, ncol = 1, scales = "free_y") +
  geom_blank(aes(y = y_min)) +
  geom_blank(aes(y = y_max))

对于阅读此问题的其他人，技巧是为每个组显式创建 y_min 和 y_max 变量。并通过geom_blank()“绘制”它们。 （实际上没有绘制任何内容，但每个构面的绘制区域会根据该组的 y_min 和 y_max 值进行调整）。

如果由于某些原因，您想手动指定最小值和最大值（而不是规则），没有人会阻止您。但这很乏味：

dat[group == "a",y_min := 0]
dat[group == "a",y_max := 30]
dat[group == "b",y_min := 0]
dat[group == "b",y_max := 3000]

ggplot(dat, aes(x = x, y = y)) + 
  geom_point() + 
  geom_line() + 
  facet_wrap(~group, ncol = 1, scales = "free_y") +
  geom_blank(aes(y = y_min)) +
  geom_blank(aes(y = y_max))

但是，正如我所提到的，如果您想扩大限制，而不是减少限制，这很有效。