ggplot2 किंवदंतियों में सदस्यता का उपयोग कैसे करें [आर]

Question

क्या मैं ggplot2 किंवदंतियों में सबस्क्रिप्ट का उपयोग कर सकता हूं? मैं किंवदंतियों और अन्य जगहों पर ग्रीक अक्षरों पर this question देखता हूं, लेकिन मुझे यह पता नहीं लगाया जा सकता कि इसे कैसे अनुकूलित किया जाए।

मैंने सोचा कि expression() का उपयोग करके, जो धुरी लेबल में काम करता है, चाल करेगा। लेकिन नीचे मेरा प्रयास विफल रहता है। धन्यवाद!

library(ggplot2) 
temp <- data.frame(a = rep(1:4, each = 100), b = rnorm(4 * 100), c = 1 + rnorm(4 * 100)) 
names(temp)[2:3] <- c("expression(b[1])", "expression(c[1])") 
temp.m <- melt(temp, id.vars = "a") 
ggplot(temp.m, aes(x = value, linetype = variable)) + geom_density() + facet_wrap(~ a) 

Answer 1

निम्नलिखित (names(temp) <- साथ अपनी लाइन को दूर ...) काम करना चाहिए:

ggplot(temp.m, aes(x = value, linetype = variable)) + 
    geom_density() + facet_wrap(~ a) +  
    scale_linetype_discrete(breaks=levels(temp.m$variable), 
          labels=c(expression(b[1]), expression(c[1]))) 

(name= के माध्यम से जैसे कथा शीर्षक) उपलब्ध अनुकूलन के लिए help(scale_linetype_discrete) देखें।

Answer 2

यदि आप ग्रीक प्रतीकों इत्यादि को प्रमुख टिक लेबल में शामिल करना चाहते हैं, तो एक अनियमित expression का उपयोग करें।

library(ggplot2) 
data <- data.frame(names=tolower(LETTERS[1:4]),mean_p=runif(4)) 

p <- ggplot(data,aes(x=names,y=mean_p)) 
p <- p + geom_bar(colour="black",fill="white") 
p <- p + xlab("expressions") + scale_y_continuous(expression(paste("Wacky Data"))) 
p <- p + scale_x_discrete(labels=c(a=expression(paste(Delta^2)), 
           b=expression(paste(q^n)), 
           c=expression(log(z)), 
           d=expression(paste(omega/(x + 13)^2)))) 
p