Chủ đề dải độc lập cho ggplot2 facet_wrap sử dụng nhiều hơn một biến

Question

Có thể có các chủ đề dải độc lập cho mỗi biến được sử dụng trong ggplot2 facet_wrap không?

Đi đoạn mã này là một ví dụ:

p1 <- ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(c("cyl", "drv"), labeller = "label_both") 
plot(p1) 

tôi muốn có dải trên ('cyl') với một chủ đề khác nhau - chẳng hạn, in đậm. Ngoài ra, tôi có thể muốn làm cho 'drv' nghiêng và với một loại phông chữ khác nhau và kích thước. Làm thế nào tôi có thể làm điều đó?

Tôi đã suy nghĩ điều gì đó trong dòng:

p1 <- p1 + theme(strip.text.variable1 = element_text(face = 'bold'), 
        strip.text.variable2 = element_text(face = 'italic', size = 8) 
       ) 

Thật không may, tôi không thể tìm thấy bất cứ điều gì như thế này trong các tài liệu hoặc các câu hỏi trước.

Cheers

Edit: Tôi đã hỏi một chút tổng quát hơn để được giúp đỡ hơn nữa cho cộng đồng.

Answer 1

Bề ngoài bạn sẽ có thể để thực hiện một chức năng mới dựa trên label_both trở nhãn đậm, nhưng cho đến nay những nỗ lực của tôi đã kết thúc với sự sợ hãi Error in variable[[i]] : subscript out of bounds.

Một giải pháp thay thế cho điều này là tạo một hàm để tạo nhãn bạn muốn. Điều này giống như this answer. Trong hàm này, bạn thêm tiền tố vào các giá trị của biến và làm cho chúng đậm.

make_labels = function(string, prefix = "cyl: ") { 
    x = paste0(prefix, as.character(string)) 
    do.call(expression, lapply(x, function(y) bquote(bold(.(y))))) 
} 

Bây giờ hãy sử dụng hàm này trong vòng as_labeller cho biến "cyl" trong facet_wrap. Bạn muốn thay đổi labeller mặc định trong phạm vi as_labeller thành label_parsed để biểu thức được phân tích cú pháp chính xác. Sử dụng label_both cho biến số khác.

ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(c("cyl", "drv"), 
       labeller = labeller(cyl = as_labeller(make_labels, default = label_parsed), 
            drv = label_both))