Biểu thức trong nhãn các nhãn ggplot2

Question

Tôi muốn có một nhãn R expression trong nhãn ggplot2.

Hãy nói rằng tôi đang âm mưu thực hiện 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 

như sau:

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

Thay vì phải "Nữ" và "Nam" như nhãn khía cạnh tôi muốn có: "Nữ chủ đề" và "Nam đối tượng ", tương ứng. Theo như tôi biết italicizing một nhãn trong R đạt được thông qua các chức năng expression, nhưng tôi không biết làm thế nào để kết hợp với facet_wrap.

Answer 1

Trông quá phức tạp, nhưng hoạt động. Bạn sẽ phải sử dụng 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

Tính đến 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))