修改现有ggplot对象中的比例，而无需替换比例

如何解决修改现有ggplot对象中的比例，而无需替换比例

我有一个ggplot对象。它具有由scales_x_continuous()创建的x轴标签。在不重新创建图的情况下，并且在不更改传递给scale_x_continuous()的任何其他参数的情况下，我想更改x轴标签。我该怎么办？

关于创建ggplot对象后有许多SO帖子。但据我所知，这些帖子中的解决方案不适用于这种特殊情况。为了解决问题，这是一个小例子：

library(ggplot2)
p <- ggplot(mtcars,aes(mpg,wt)) + 
  geom_point() + 
  scale_x_continuous(name = "oldLabel",limits = c(15,30))

我想将x轴标签从“ oldLabel”更改为“ newLabel”，而不覆盖limits参数。在其他情况下，其他帖子中提到的许多看似显而易见的策略在这种情况下不起作用：

1. p + scale_x_continuous(name = "newLabel")会更改标签-但也会更改限制。我可以通过致电p + scale_x_continuous(name = "newLabel,30)")解决这个问题。但是在实践中，我使用的ggplot对象可能带有scale_x_continuous()的许多参数，因此，我不想重复它们，只是为了覆盖x轴标签。

2. p + xlab("newLabel")不会替换标签。也就是说，xlab()在这种情况下似乎无效。如果原始标签是用xlab()指定的，则可以使用，但是这里不是这种情况。

3. update_labels(p,list(x = "new x label"))也不替换标签。

4. ggplot_build()似乎也没有任何作用，至少在我一直在使用它：

library(gridExtra)
tmp <- ggplot_build(p)
tmp$layout$panel_params[[1]]$x$name     <- "newLabel"
tmp$layout$panel_params[[1]]$x.sec$name <- "newLabel"
grid.arrange(ggplot_gtable(tmp))

解决方法

您需要更新绘图本身内的x缩放对象的name参数（而不是ggplot构建对象的layout中的副本）。

这里是完整的代表：

library(ggplot2)

p <- ggplot(mtcars,aes(mpg,wt)) + 
  geom_point() + 
  scale_x_continuous(name = "oldLabel",limits = c(15,30))

p
#> Warning: Removed 9 rows containing missing values (geom_point).

p$scales$scales[[1]]$name <- "newLabel"

p
#> Warning: Removed 9 rows containing missing values (geom_point).

^{由reprex package（v0.3.0）于2020-09-01创建}