R: Erstellen von Vektoren lateinischen/griechischen Ausdruck für Plot Titel, Achsenbeschriftungen oder Legenden

Question

Ich möchte Vektoren von lateinischen und griechischen Text zusammenführen, um Plottitel, Achsenbeschriftungen, Legendeneinträge usw. zu generieren. Ich habe ein Trivial zur Verfügung gestellt Beispiel unten. Ich kann nicht herausfinden, wie man die griechischen Buchstaben in ihrer ursprünglichen Form wiedergeben kann. Ich habe verschiedene Kombinationen von expression, parse und apply zum paste Befehl versucht, aber ich war nicht in der Lage, den Code zu vektorisieren, der leicht gemischten lateinischen/griechischen Text für den Fall eines einzelnen Ausdruckes erzeugt (zB expression("A ("*alpha*")") ist im Fall passend eines einzelnen Ausdrucks). innerhalb der legend() Anweisung

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

Könnten Sie mir bitte mit der apply() Aussage helfen? Es erfordert eine gewisse Modifikation, um die gewünschte Ausgabe zu erzeugen (d. H. A (α), B (β), C (γ), D (δ)). Danke im Voraus.

Answer 1

Hier ist eine Alternative, die parse() vermeidet, und arbeitet mit dem Beispiel in Ihrem ersten Kommentar erwähnt @ MNEL die nette Antwort:

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

Verwenden Sie nicht apply erstellen Sie einen Vektor von Ausdrücken.

Verwenden Sie stattdessen 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) 

Wenn Sie ~ innerhalb der Ausdrücke enthalten. Angesichts Ihrer aktuellen Workflow, so scheint es am einfachsten sep = '' mit sep = '~' im Aufruf 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) 

Es könnte zu ersetzen noch deutlicher sein sprintf zu verwenden, um die Zeichenketten zu bilden, die Ihre Expressionsvektor werden wird .

Wenn Sie Zeichenfolgen mit Leerzeichen einfügen möchten, müssen Sie diese Zeichenfolgen in Anführungszeichen innerhalb der Zeichenfolge einschließen. Beispielsweise.

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)