คำถามติดแท็ก facet-grid

ฉันต้องการใส่คำอธิบายประกอบข้อความในส่วนสุดท้ายของพล็อตด้วยรหัสต่อไปนี้: library(ggplot2) p <- ggplot(mtcars, aes(mpg, wt)) + geom_point() p <- p + facet_grid(. ~ cyl) p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5) print(p) แต่รหัสนี้จะใส่คำอธิบายประกอบข้อความในทุกแง่มุม ฉันจะขอขอบคุณอย่างมากหากคุณแนะนำวิธีการรับข้อความอธิบายประกอบในแง่มุมเดียว

150 r  ggplot2  facet  facet-wrap  facet-grid