仅填充（扩展）ggplot2 中连续刻度的顶部

Question

我有一些数据共享一个共同的 x 轴，但有两个不同的 y 变量：

set.seed(42)
data = data.frame(
    x = rep(2000:2004, 2),
    y = c(rnorm(5, 20, 5), rnorm(5, 150, 15)),
    var = rep(c("A", "B"), each = 5)
)

我正在使用分面线图来显示数据：

p = ggplot(data, aes(x, y)) +
    geom_line() +
    facet_grid(var ~ ., scales = "free_y")

我希望 y 轴包含 0。这很容易：

p + expand_limits(y = 0)

但随后我的数据看起来过于拥挤，离我的方面的顶部太近了。所以我想填充轴的范围。通常scale_y_continuous(expand = ...)用于填充轴，但填充对称地应用于顶部和底部，使 y 轴远低于0。

p + expand_limits(y = 0) + 
    scale_y_continuous(expand = c(0.3, 0.2))
# the order of expand_limits and scale_y_continuous
# does not change the output

由于具有自由 y 比例的方面，我无法明确设置限制。将 y 尺度扩展到 0（不低于！），同时乘法填充 y 尺度的顶部的最佳方法是什么？

Answer 1

您可以创建一个额外的数据集，每个方面都有一个点，并使用 不可见地绘制它geom_blank()。该点被选择为大于给定方面的最大值的固定因子。这里，我选择该因子为 1.5，以使效果清晰可见：

max_data <- aggregate(y ~ var, data = data, FUN = function(y) max(y) * 1.5)
max_data <- transform(max_data, x = 2000)

p + geom_blank(data = max_data)

这就是我得到的：