如何使用ggplot2更改每个方面的轴的限制和划分？处理“x$clone() 尝试应用非函数时出错”

我想我找到了它不起作用的原因，

在facet_grid该scales参数用来指示是否每个面板将具有相似或不同的尺度c("free","free_x","free_y")。但是free_xonfacet_grid只有在水平方向是自由的，所有的垂直分组都有相同的比例范围。

指定时facet_grid_sc，该scales参数用于区分每个比例将如何呈现，特别scales = list(x = scale_x)是scale_x匹配的位置cols = vars(Range)

library(ggplot2)
library(facetscales)

#Constructing data frame
Source <- c(rep("Water", 12), rep("Oil", 12))
Range <- rep((c(rep("First", 4), rep("Second", 8))),2)
Xaxis <- c(0,1,2,5,0,1,2,5,10,20,30,40,
           0,1,2,5,0,1,2,5,10,20,30,40)
Yaxis <- c(0,1,2,5,0,1,2,5,10,20,30,40,
           0,1,2,5,0,1,2,5,10,20,30,40)

DF <- data.frame(Source, Range, Xaxis, Yaxis)

p <- ggplot(data = DF, aes(x = Xaxis, y = Yaxis)) +
  geom_smooth(method = "lm",
              formula = y ~ x) +
  geom_point()

#old plot without facet_grid_sc
p + facet_grid(rows = vars(Range),
               cols = vars (Source))

你看到如果你Range在行上切面，它们是垂直分割而不是水平分割的吗？我不认为facet_grid_sc支持一段free_x时间也指定 x 元素scales

scale_x <- list(
  First = scale_x_continuous(limits = c(0, 10), breaks = c(0, 2, 10)),
  Second= scale_x_continuous(limits = c(0, 40), breaks = c(0, 5, 40))
)

#new plot where scale_x matches cols argument
p + facet_grid_sc(cols = vars(Range),
                  rows = vars (Source),
                  scales = list(x = scale_x))

^{由reprex 包(v1.0.0)于 2021 年 3 月 16 日创建}

编辑

应该注意的facet_grid_sc是，如果您想单独控制每个面板列/行的范围或标签，这可能更有用。在这个例子中使用scales = "free_x"infacet_grid实际上已经足够了。

p + facet_grid(cols = vars(Range),
               rows = vars (Source),
               scales = "free_x")

^{由reprex 包(v1.0.0)于 2021 年 3 月 16 日创建}