ggplot2中的主题中的xlab

Question

我正在制作许多具有相同xlab的图形。 我想知道我们是否可以在主题中使用xlab：

theme_mine1 <- opts(
      panel.grid.major = theme_blank()
    , panel.grid.minor = theme_blank()
    , panel.background = theme_blank()
    , axis.line        = theme_blank()
    , xlab             = expression(paste("My (xlab ", m^{-2}, ")"))
    )

当我使用此主题时，它不会给出任何错误或警告，但不会更改xlab。 任何建议将不胜感激。 谢谢

Answer 1

您可以使用opts(labels=list(x='xlabelhere'),...) 。

关于如何发现此问题的注释（因为我以前不知道，因此认为它非常有用）：

目前在寻找什么可以送入一个梦幻般的计算器问题， opts 在这里 。

总之，它引用ggplot2 wiki来获取opts 。 它还说，你可以使用plot_theme(p)看到当前应用于绘制所有选项p 。

在您的情况下，ggplot2 opts链接对于x标签没有产生任何结果，但是从您先前的问题中对p进行plot_theme(p)时，可以看到：

> names(plot_theme(p))
 [1] "labels"             "axis.line"          "axis.text.x"       
 [4] "axis.text.y"        "axis.ticks"         "axis.title.x"      
 [7] "axis.title.y"       "axis.ticks.length"  "axis.ticks.margin" 
[10] "legend.background"  "legend.key"         "legend.key.size"   
[13] "legend.key.height"  "legend.key.width"   "legend.text"       
[16] "legend.text.align"  "legend.title"       "legend.title.align"
[19] "legend.position"    "legend.direction"   "legend.box"        
[22] "panel.background"   "panel.border"       "panel.grid.major"  
[25] "panel.grid.minor"   "panel.margin"       "strip.background"  
[28] "strip.text.x"       "strip.text.y"       "plot.background"   
[31] "plot.title"         "plot.margin"       

为了您的目的， labels看起来很有希望！

所以我尝试了：

> plot_theme(p)$labels
$x
[1] "x"

$y
[1] "y/n"

得分！ 这给了我足够的继续：

theme_mine1 <- opts(
                ....,
                labels=list(x='my xlabel! booya!'))

哪个有效！

Answer 2

xlab不是opts()的参数，而是一个单独的函数，请尝试使用此函数，

qplot(1, 1) + list(theme_mine1, xlab("x label"))