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"))