Come aggiungere un titolo a un ggplot quando il titolo è un nome di variabile?

Question

Al termine di un ggplot, questo funziona bene:

+ opts(title = expression("Chart chart_title...")) 

ma questo non significa:

chart_title = "foo" 
+ opts(title = expression(chart_title)) 

né questo:

chart_title = "foo" 
+ opts(title = chart_title) 

Come posso aggiungere un titolo a un ggplot quando il titolo è un nome di variabile?

Answer 1

Come altri hanno sottolineato, il tuo esempio sembra funzionare correttamente per i casi in cui la variabile chart_title è una stringa o un'espressione. A volte è complicato costruire la variabile del titolo; per esempio, potrebbe sorgere uno scenario confuso se chart_title utilizza alcune altre variabili e se in aggiunta si utilizzano alcuni caratteri greci, quindi un semplice paste(...) non è sufficiente. Per costruire un titolo del genere, si potrebbe usare qualcosa come il seguente:

foo <- rnorm(100) 
number <- 1 
chart_title <- substitute(paste("Chart no. ",number,": ",alpha," vs ",beta,sep=""), list(number = number)) 
qplot(foo,foo) + opts(title = chart_title) 

Un'altra funzione che torna utile quando si costruisce titoli è bquote(). La costruzione di titoli programmatici può essere un affare disordinato; R FAQ 7.13 (http://cran.r-project.org/doc/FAQ/R-FAQ.html) può aiutarti a iniziare, ma anche le FAQ in genere ti dicono di cercare R-Help in caso di dubbio.

Answer 2

Fornire un esempio riproducibile. I seguenti funziona bene per me:

title <- "My title" 
qplot(mpg, wt, data = mtcars) + opts(title = title) 

A partire dalla versione 0.9.2, è stato optsreplace da theme:

qplot(mpg, wt, data = mtcars) + theme(title = title) 

Inoltre, vedere ?ggtitle.

Answer 3

L'opzione è obsoleta. Una possibilità è quella di utilizzare i laboratori()

myTitle <- "My title" 
qplot(mpg, wt, data = mtcars) + labs(title = myTitle) 

Praticamente la stessa.