Đặt một hộp màu xám quanh tiêu đề biểu đồ trong ggplot2

Question

khi chúng tôi sử dụng tùy chọn facet trong ggplot, chúng tôi nhận được một hộp màu xám đẹp xung quanh các tiêu đề (3,4,5).

library(ggplot2) 

data(mtcars) 

ggplot(mtcars, aes(cyl)) + geom_bar() + facet_wrap(~gear) + theme_bw() 

Làm cách nào để đặt hộp xám tương tự quanh tiêu đề biểu đồ khi chúng tôi không sử dụng tùy chọn facet?

ggplot(mtcars, aes(cyl)) + geom_bar() + theme_bw() + 
    ggtitle("How do you put a grey box around me??") 

Answer 1

Vì bạn đang hỏi làm thế nào để làm điều đó mà không cần khía cạnh, điều này được nói đúng không phải là một câu trả lời, nhưng chỉ để điểm nó ra, một cách nhanh chóng và bẩn sẽ được "ăn gian" và sử dụng một khía cạnh sau tất cả các. Ví dụ:

mtcars$title <- "How do you put a grey box around me??" 
ggplot(mtcars, aes(cyl)) + geom_bar() + theme_bw() + 
    facet_grid(. ~ title) 

thực hiện thủ thuật.