Question

一些示例数据：

dfr <- data.frame(
  x = rep.int(1:10, 2),
  y = runif(20),
  g = factor(rep(letters[1:2], each = 10))
)

一个简单的散点图，有两个方面：

p <- ggplot(dfr, aes(x, y)) + 
  geom_point() +
  facet_wrap(~ g, scales = "free_y")

我可以使用

设置所有面板的轴限制

p + scale_y_continuous(limits = c(0.2, 0.8))

（或像ylim这样的包装器）

但如何为不同的方面设置不同的轴限制？

执行此操作的格式方法是将列表传递给此参数，例如，

p + scale_y_continuous(limits = list(c(0.2, 0.8), c(0, 0.5)))

不幸的是，这只会在ggplot2案例中抛出一个错误。

修改

这是部分黑客攻击。如果要扩展比例范围，则可以向数据集添加指定限制的列，然后使用geom_blank绘制它们。

修改数据集：

dfr <- data.frame(
  x = rep.int(1:10, 2),
  y = runif(20),
  g = factor(rep(letters[1:2], each = 10)),
  ymin = rep(c(-0.6, 0.3), each = 10),
  ymax = rep(c(1.8, 0.5), each = 10)
)

更新的情节：

p + geom_blank(aes(y = ymin)) + geom_blank(aes(y = ymax))

现在尺度不同，左手尺正确。不幸的是，右手尺度不会收缩，因为它需要为积分腾出空间。

如果它有帮助，我们现在可以将问题重新描述为“是否可以在不重新计算尺度且没有明确调用scale_y_continuous的情况下绘制点？”

Answer 1

我不认为这在ggplot2中是可行的。从1月开始的discussion表明该问题正在考虑之中。

Answer 2

要缩小左侧绘图上的比例，请移除范围之外的点。例如。这会将右图上的y比例缩小到0到0.5之间的值：

p <- ggplot(dfr, aes(x, y)) +   
     geom_point(subset=.(g == "a" | (y > 0 & y <.5))) +
     geom_blank(aes(y = ymin)) + geom_blank(aes(y = ymax)) +
     facet_wrap(~ g, scales = "free_y")

另请参阅我对此question的回答。

如何为不同方面设置不同的比例限制？

2 个答案: