如何在 ggplot2 中控制 ylim 以绘制不同比例的多面图？

Question

在下面的示例中，如何为每个方面设置单独的 ylim？

qplot(x, value,  data=df, geom=c("smooth")) + facet_grid(variable ~ ., scale="free_y")

在每个方面，y 轴采用不同的值范围，我希望每个方面都有不同的 ylim。

默认 ylims 对于我想要看到的趋势来说太长了。

Answer 1

这是不久前在 ggplot2 邮件列表上提出的。您所要求的目前是不可能的，但我认为它正在进行中。

Answer 2

据我所知，这还没有在 ggplot2 中实现。然而，一种解决方法 - 将为您提供超出 ggplot 自动提供的 ylims - 是添加“人工数据”。要减少 ylims，只需删除不需要绘图的数据（参见 和 的示例）。

下面是一个示例：

让我们设置一些要绘制的虚拟数据，

df <- data.frame(x=rep(seq(1,2,.1),4),f1=factor(rep(c("a","b"),each=22)),f2=factor(rep(c("x","y"),22)))
df <- within(df,y <- x^2)

我们可以使用折线图绘制它们

p <- ggplot(df,aes(x,y))+geom_line()+facet_grid(f1~f2,scales="free_y")
print(p)

假设我们想让 y 在第一行中从 -10 开始，在第二行中从 0 开始，所以我们在(0,-10) 到左上图和 (0,0) 到左下图：

ylim <- data.frame(x=rep(0,2),y=c(-10,0),f1=factor(c("a","b")),f2=factor(c("x","y")))
dfy <- rbind(df,ylim)

现在通过将 x 尺度限制在 1 和 2 之间，这些添加的点不会被绘制（给出警告）：

p <- ggplot(dfy,aes(x,y))+geom_line()+facet_grid(f1~f2,scales="free_y")+xlim(c(1,2))
print(p)

同样会通过在 xlim 范围之外的 x 值处添加具有较高 y 值的点来扩展上述边距。

如果您想减少 ylim，这将不起作用，在这种情况下，对数据进行子集化将是一个解决方案，例如将上行限制在 -10 和 1.5 之间，您可以使用：

p <- ggplot(dfy,aes(x,y))+geom_line(subset=.(y < 1.5 | f1 != "a"))+facet_grid(f1~f2,scales="free_y")+xlim(c(1,2))
print(p)

Answer 3

现在实际上有两个包可以解决这个问题：
https://github.com/zeehio/facetscales 和 https://cran.r-project.org/package=ggh4x。
我建议使用 ggh4x，因为它有非常有用的工具，例如多面网格多层（有 2 个定义行或列的变量），根据需要在每个面中缩放 x 和 y 轴，并且还具有多个填充和色标。
对于您的问题，解决方案如下：

library(ggh4x)

scales <- list(
  # Here you have to specify all the scales, one for each facet row in your case
  scale_y_continuous(limits = c(2,10),
  scale_y_continuous(breaks = c(3, 4))
)
qplot(x, value,  data=df, geom=c("smooth")) +
 facet_grid(variable ~ ., scale="free_y") +
 facetted_pos_scales(y = scales)

Answer 4

我有一个函数 facet_wrap 的示例，

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(vars(class), scales = "free", 
             nrow=2,ncol=4)

上面的代码生成的图如下：
我的等级太低，无法上传图片，点击此处查看剧情