ggplot2 facet लेबल में अभिव्यक्ति

Question

मैं ggplot2 पहलू लेबल में R expression रखना चाहता हूं।

मान लीजिए कि मैं साजिश रचने कर रहा हूँ चलो tipsdata.frame:

library(reshape2) 
> head(tips) 
    total_bill tip sex smoker day time size 
1  16.99 1.01 Female  No Sun Dinner 2 
2  10.34 1.66 Male  No Sun Dinner 3 
3  21.01 3.50 Male  No Sun Dinner 3 
4  23.68 3.31 Male  No Sun Dinner 2 
5  24.59 3.61 Female  No Sun Dinner 4 
6  25.29 4.71 Male  No Sun Dinner 4 

इस प्रकार है:

library(ggplot2) 
sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + 
     geom_point(shape=1) + 
     facet_wrap(~sex, ncol = 1) 

इसके बजाय पहलू लेबल के रूप में होने के "महिला" और "पुरुष" की

मैं चाहते हैं: "महिला विषयों" और "पुरुष विषयों "क्रमशः। जहां तक ​​मुझे पता है कि आर में एक लेबल को इटैलिकिस करना expression फ़ंक्शन के माध्यम से हासिल किया गया है, लेकिन मुझे नहीं पता कि facet_wrap के साथ इसे कैसे जोड़ा जाए।

Answer 1

अत्यधिक जटिल लग रहा है, लेकिन काम करता है। हालांकि आपको facet_grid का उपयोग करना होगा।

make_label <- function(value) { 
    x <- as.character(value) 
    bquote(italic(.(x))~subjects) 
} 

plot_labeller <- function(variable, value) { 
    do.call(expression, lapply(levels(value), make_label)) 
} 

ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + 
    geom_point(shape=1) + 
    facet_grid(.~sex, labeller = plot_labeller) 

Answer 2

ggplot22.1.0 के रूप में:

data(tips, package="reshape2") 
library(ggplot2) 
ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + 
    geom_point(shape=1) + 
    facet_wrap(~sex, ncol=1, 
      labeller=label_bquote(.(levels(tips$sex)[sex])~subjects))