R: tworzenie wektorów wyrażenia łacińskiego/greckiego dla tytułów działek, etykiet osi lub legend

Question

Chciałbym scalić wektory tekstu łacińskiego i greckiego, aby wygenerować tytuły działek, etykiety osi, wpisy do legend itp. Dostarczyłem trywialne przykład poniżej. Nie wiem, jak wyrenderować greckie litery w ich rodzimej postaci. Próbowałem różnych kombinacji expression, parse i do polecenia , ale nie udało mi się wektoryzować kodu, który łatwo generuje mieszany tekst łaciński/grecki dla przypadku pojedynczego wyrażenia (np. expression("A ("*alpha*")") jest odpowiedni w przypadku pojedynczego wyrażenia).

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

mógłbyś mi pomóc z rachunku apply() w rachunku legend()? Wymaga pewnych modyfikacji w celu wytworzenia pożądanego wyniku (tj. A (α), B (β), C (γ), D (δ)). Z góry dziękuję.

Answer 1

Oto alternatywa, która pozwala uniknąć parse() i współpracuje z przytoczonym przykładzie w pierwszym komentarzu do użytkownika @ mnel miłą odpowiedź:

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

Nie używaj apply, aby utworzyć wektor wyrażeń.

Zamiast tego należy użyć 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) 

Jeśli chcesz dołączyć ~ w wyrażeniach. Biorąc pod uwagę Twój aktualny przepływ pracy, wydaje się najłatwiejszy do zastąpienia sep = '' z sep = '~' w ramach wezwania do 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) 

może być jeszcze wyraźniejsze w użyciu sprintf tworząc ciągi znaków, które staną się wektor ekspresyjny .

Jeśli chcesz dołączyć ciągi znaków zawierające spacje, musisz zawinąć te ciągi w cudzysłowy w ciągu znaków. Na przykład.

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)