R: creazione di vettori di espressioni latine/greche per titoli di plot, etichette degli assi o legende

Question

Vorrei unire i vettori di testo latino e greco per generare titoli di trama, etichette degli assi, voci delle legende, ecc. Ho fornito un banale esempio sotto. Non riesco a capire come rendere le lettere greche nella loro forma nativa. Ho provato varie combinazioni di expression, parse e apply al comando paste ma non sono stato in grado di vettorializzare il codice che genera facilmente testo misto Latino/Greco per il caso di una singola espressione (ad esempio, expression("A ("*alpha*")") è adatto nel caso di una singola espressione).

data<-matrix(seq(20),nrow=5,ncol=4,byrow=TRUE) 
colnames(data)<-c("A","B","C","D") 
greek<-c(" (alpha)"," (beta)"," (gamma)"," (delta)") 
matplot(data) 
legend(1,max(data),fill=c("black","red","green","blue"),apply(matrix(paste(colnames(data),greek,sep=""),nrow=4,ncol=1),1,expression)) 

La prego di aiutarmi con la apply() dichiarazione all'interno dell'istruzione legend()? Richiede qualche modifica per produrre l'uscita desiderata (cioè A (α), B (β), C (γ), D (δ)). Grazie in anticipo.

Answer 1

Ecco un'alternativa che evita parse(), e funziona con l'esempio citato nel suo primo commento alla bella risposta di @ mnel:

greek <- c("alpha", "beta", "gamma", "delta") 
cnames <- paste(LETTERS[1:4], letters[1:4]) 

legend_expressions <- 
sapply(1:4, function(i) { 
    as.expression(substitute(A (B), 
        list(A = as.name(cnames[i]), B = as.name(greek[i])))) 
}) 

matplot(data) 
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions) 

Answer 2

Non utilizzare apply creare un vettore di espressioni.

Utilizzare invece parse(text = ...).

.expressions <- paste(colnames(data),greek,sep="") 
legend_expressions <-parse(text = .expressions) 

matplot(data) 
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions) 

Se si desidera includere ~ all'interno delle espressioni. Dato il flusso di lavoro attuale, sembrerebbe più semplice per sostituire sep = '' con sep = '~' all'interno della chiamata a paste

.expressions <- paste(colnames(data),greek,sep="~") 
legend_expressions <-parse(text = .expressions) 

matplot(data) 
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions) 

Potrebbe anche essere più chiaro di utilizzare sprintf per formare le stringhe di caratteri che diventerà il vostro vettore di espressione .

Se si desidera includere stringhe di caratteri che includono spazi, sarà necessario racchiudere queste stringhe tra virgolette all'interno della stringa. Per esempio.

greek <- c("alpha", "beta", "gamma", "delta") 
other_stuff <- c('hello world','again this','and again','hello') 

.expressions <- mapply(sprintf, colnames(data), other_stuff, greek, 
         MoreArgs = list(fmt = '"%s %s"~(%s)')) 

.expressions 
##       A       B       C       D 
## "\"A hello world\"~(alpha)" "\"B again this\"~(beta)" "\"C and again\"~(gamma)"  "\"D hello\"~(delta)" 

legend_expressions <-parse(text = .expressions) 

matplot(data) 
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions)