ggplot2 เพิ่มข้อมูลจากกรอบข้อมูลเพิ่มเติมถัดจากพล็อต

เราสามารถใช้ geom_text กับ clip = "off" ภายใน coord_flip:

ggplot(ToothGrowth, aes(x=dose, y=len)) +
    geom_boxplot() +
    geom_text(
        y = max(ToothGrowth$len) * 1.1,
        data = extra,
        aes(x = dose, label = sprintf("%s\n%s", label, n)),
        hjust = 0) +
    coord_flip(clip = "off") +
    theme(plot.margin = unit(c(1, 5, 0.5, 0.5), "lines"))

คำอธิบาย: เราวางข้อความไว้นอกพื้นที่พล็อตด้วย geom_text และปิดการใช้งานการตัดภาพด้วย clip = "off" ภายใน coord_flip สุดท้ายนี้ เราเพิ่มระยะขอบของพล็อตเพื่อรองรับป้ายกำกับเพิ่มเติม คุณสามารถปรับตำแหน่งแนวตั้ง y ในระยะขอบ (ดังนั้นตำแหน่งแนวนอนในพล็อตเนื่องจากการพลิกพิกัด) โดยการเปลี่ยนปัจจัยใน y = max(ToothGrowth$len) * 1.1

เพื่อตอบสนองต่อการแก้ไขของคุณ นี่คือความเป็นไปได้

extra <- data.frame(
  dose=factor(rep(c(0.5,1,2), each=2)),
  group=factor(rep(c(1:2), 3)),
  label=c("Label1A", "Label1B", "Label2A", "Label2B", "Label3A", "Label3B"),
  n=c("n=12","n=30","n=20", "n=32","n=15","n=20")
)

library(tidyverse)
ToothGrowth %>%
    mutate(
        dose = as.factor(dose),
        group = as.factor(rep(1:2, nrow(ToothGrowth) / 2))) %>%
    ggplot(aes(x = dose, y = len, fill = group)) +
    geom_boxplot(position = position_dodge(width = 1)) +
    geom_text(
        data = extra %>%
            mutate(
                dose = as.factor(dose),
                group = as.factor(group),
                ymax = max(ToothGrowth$len) * 1.1),
        aes(x = dose, y = ymax, label = sprintf("%s\n%s", label, n)),
        position = position_dodge(width = 1),
        size = 3,
        hjust = 0) +
    coord_flip(clip = "off", ylim = c(0, max(ToothGrowth$len))) +
    theme(
        plot.margin = unit(c(1, 5, 0.5, 0.5), "lines"),
        legend.position = "bottom")

ความคิดเห็นบางส่วน:

1. เราตรวจสอบให้แน่ใจว่าป้ายกำกับตรงกับแถบหลบโดยใช้ position_dodge(with = 1) ภายใน geom_text และ geom_boxplot
2. ดูเหมือนว่า position_dodge ไม่ชอบ y ทั่วโลก (นอก aes) ดังนั้นเราจึงรวมตำแหน่ง y ของป้ายกำกับไว้ใน extra และใช้ตำแหน่งดังกล่าวภายใน aes ด้วยเหตุนี้ เราจึงต้องจำกัดช่วงของแกน y อย่างชัดเจน เราสามารถทำได้ภายใน coord_flip ด้วย ylim = c(0, max(ToothGrowth$len))