我有一个ggplot对象。它具有由创建的x轴标签scales_x_continuous()
。在不重新创建图的情况下,并且不更改传递给的任何其他参数的情况下scale_x_continuous()
,我想更改x轴标签。我该怎么办?
创建ggplot对象后,有许多关于更新ggplot对象的文章。但据我所知,这些帖子中的解决方案不适用于这种特殊情况。为了解决问题,这是一个小例子:
library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
scale_x_continuous(name = "oldLabel", limits = c(15, 30))
我想在不覆盖limits
参数的情况下将x轴标签从“ oldLabel”更改为“ newLabel” 。在这种情况下,其他帖子中提到的许多看似显而易见的策略也不起作用:
p + scale_x_continuous(name = "newLabel")
更改标签-但也会更改限制。我可以打电话给解决这个问题p + scale_x_continuous(name = "newLabel, limits = c(15, 30)")
。但实际上,我使用的ggplot对象可能带有的许多参数scale_x_continuous()
,而我不想重复所有这些内容只是为了覆盖x轴标签。
p + xlab("newLabel")
不替换标签。也就是说,xlab()
在这种情况下似乎没有作用。如果已使用来指定原始标签,则可以使用xlab()
,但这不是这种情况。
update_labels(p, list(x = "new x label"))
也不会替换标签。
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))
您需要更新name
绘图本身内的x缩放对象的参数(而不是layout
ggplot构建对象中的副本)。
这是完整的说明:
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软件包(v0.3.0)创建于2020-09-01
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句