调整 ggplot2 中的标签并在绘图的条形顶部添加另一个标签

Question

大家好，我正在使用 R 中的数据框来构建一个漂亮的图表。我已经开发了图表，但是图例存在一些问题。 Mi dataframe DF 有下一个形式（我在最后一面添加了dput() 版本）：

   Mes Estado Numero Label
1    2      X      7 22 (1.19%)
2    2      A     13 22 (1.19%)
3    2      Z      2 22 (1.19%)
4    3      X     19 30 (1.62%)
5    3      A     10 30 (1.62%)
6    3      Z      1 30 (1.62%)
7    4      X     19 31 (1.68%)
8    4      A     11 31 (1.68%)
9    4      Z      1 31 (1.68%)
10   5      X     17 28 (1.52%)
11   5      A      7 28 (1.52%)
12   5      Z      4 28 (1.52%)

它有 4 个变量 Mes, Estado, Numero, Label。我想根据案例数量（Numero）显示Estado 和Mes 的分布，所以我用下面的代码构建了这个图形：

AAA=ggplot(DF, aes(x = Mes, y = Numero, fill = Estado)) +
  geom_bar(stat = "identity") + scale_y_continuous(labels = comma) + geom_text(aes(label=Numero),fontface="bold",size=6)
print(AAA)

根据Numero，如何查看Mes 中每个值的Estado 分布可以正常工作，但问题出在标签上。我想在它们各自颜色的中间修复每个条中的标签。例如，在第一个条形图的情况下，2 应位于蓝色区域，7 应位于绿色区域，13 应位于玫瑰区域。但并非所有标签都按顺序排列。此外，我在DF 中有一个名为Label 的变量我试图在每个条的顶部添加这些值，例如在Mes=2 标签的情况下，标签的值为22 (1.19%)，这意味着总和栏中的所有值和括号中的值是该总和与 1848 (22/1848) 之间的关系。我想在每个栏的顶部添加该值，但是当我尝试使用另一个 geom_text() 和 unique(PPP$Label) 时出现错误。 DF的dput版本是下一个：

DF<-structure(list(Mes = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 
3L, 3L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 7L, 7L, 7L, 8L, 8L, 8L, 
9L, 9L, 9L, 10L, 10L, 10L, 11L, 11L, 11L, 12L, 12L, 12L, 13L, 
13L, 13L, 14L, 14L, 14L, 15L, 15L, 15L, 16L, 16L, 16L, 17L, 17L, 
18L, 18L, 19L, 20L), .Label = c("2", "3", "4", "5", "6", "7", 
"8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", 
"19", "20", "21"), class = "factor"), Estado = structure(c(2L, 
1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 
2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 
1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 1L, 3L, 
1L, 3L, 1L, 3L), .Label = c("A", "X", "Z"), class = "factor"), 
    Numero = c(7L, 13L, 2L, 19L, 10L, 1L, 19L, 11L, 1L, 17L, 
    7L, 4L, 19L, 8L, 7L, 11L, 13L, 15L, 8L, 3L, 13L, 13L, 8L, 
    6L, 14L, 4L, 11L, 14L, 5L, 3L, 4L, 3L, 5L, 12L, 6L, 2L, 9L, 
    4L, 2L, 6L, 5L, 1L, 5L, 2L, 1L, 2L, 3L, 5L, 2L, 3L, 2L, 1L, 
    1L), Label = c("22 (1.19%)", "22 (1.19%)", "22 (1.19%)", 
    "30 (1.62%)", "30 (1.62%)", "30 (1.62%)", "31 (1.68%)", "31 (1.68%)", 
    "31 (1.68%)", "28 (1.52%)", "28 (1.52%)", "28 (1.52%)", "34 (1.84%)", 
    "34 (1.84%)", "34 (1.84%)", "24 (1.3%)", "24 (1.3%)", "26 (1.41%)", 
    "26 (1.41%)", "26 (1.41%)", "34 (1.84%)", "34 (1.84%)", "34 (1.84%)", 
    "24 (1.3%)", "24 (1.3%)", "24 (1.3%)", "30 (1.62%)", "30 (1.62%)", 
    "30 (1.62%)", "10 (0.54%)", "10 (0.54%)", "10 (0.54%)", "23 (1.24%)", 
    "23 (1.24%)", "23 (1.24%)", "15 (0.81%)", "15 (0.81%)", "15 (0.81%)", 
    "13 (0.7%)", "13 (0.7%)", "13 (0.7%)", "8 (0.43%)", "8 (0.43%)", 
    "8 (0.43%)", "6 (0.32%)", "6 (0.32%)", "6 (0.32%)", "7 (0.38%)", 
    "7 (0.38%)", "5 (0.27%)", "5 (0.27%)", "1 (0.05%)", "1 (0.05%)"
    )), .Names = c("Mes", "Estado", "Numero", "Label"), row.names = c(NA, 
-53L), class = "data.frame")

非常感谢您的帮助。

Answer 1

首先，我们计算中点的位置 (NumeroPos) 和堆叠条的高度 (NumeroSum)。

DF <- transform(DF, NumeroPos = ave(Numero, Mes, FUN = cumsum) - Numero / 2,
                NumeroSum = ave(Numero, Mes, FUN = sum))

现在，新变量可用于创建标签。请注意，我们使用数据框的子集作为条形顶部的标签，因为每个条形都需要一个标签。

library(ggplot2)
ggplot(DF, aes(x = Mes, y = Numero, fill = Estado)) +
  geom_bar(stat = "identity") + 
  geom_text(aes(label = Numero, y = NumeroPos), fontface = "bold", size = 6) +
  geom_text(data = DF[!duplicated(DF$Mes), ], 
            aes(y = NumeroSum, label = Label), vjust = -.5, size = 4)