Chciałbym połączyć wektory łacińskiego i greckiego tekstu, aby wygenerować tytuły fabuł, etykiety osi, wpisy legendy itp. Poniżej przedstawiłem trywialny przykład. Nie wiem, jak wyrenderować greckie litery w ich rodzimej formie. Próbowałem różnych kombinacjiexpression, parse, iapply dopaste ale nie byłem w stanie 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))

Czy mógłbyś mi pomóc zapply() oświadczenie w ramachlegend() komunikat? Wymaga to pewnych modyfikacji, aby uzyskać pożądaną wydajność (tj. A (α), B (β), C (γ), D (δ)). Z góry dziękuję.