问题描述
我有一个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
参数。在其他情况下,其他帖子中提到的许多看似显而易见的策略在这种情况下不起作用:
-
p + scale_x_continuous(name = "newLabel")
会更改标签-但也会更改限制。我可以通过致电p + scale_x_continuous(name = "newLabel,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))
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)