Rum dilinde çift harflerin köşegenine Yunanca harfleri nasıl yazdırabilirim?

Question

Çapraz harflerle yazılmış ve Yunanca harflerle yazılmış etiketlere sahip R çiftleri oluşturmak istiyorum. Etiketleri bir expression() aramasında tamamlayan özel bir text.panel işlevi oluşturmayı denedim, ancak bu çalışmaz.

pairs.greek <- function(x, ...) 
{ 
    panel.txt <- function(x, y, labels, cex, font, ...) 
    { 
    lab <- labels 
    text(0.5, 0.5, expression(lab), cex=cex, font=font) 
    } 
    pairs(x, text.panel=panel.txt) 
} 
dat <- data.frame(alpha=runif(10), beta=runif(10), gamma=runif(10)) 
pairs.greek(dat) 

Answer 1

expression(lab) aslında değerlendirmek değil lab böylece tüm etiketler lab olma ile bitirmek:

İşte size basit bir test niteliği taşıyor. Bunun yerine, bu satırı istediğiniz gibi yapacaksınız:

text(0.5, 0.5, parse(text=lab), cex=cex, font=font) 

. pairs işlevinin de bir etiket bağımsız değişkeni kabul ettiğini unutmayın, bu da işe yarar:

pairs(dat, labels=c(expression(alpha), expression(beta), expression(gamma)))