R ggplot 如何geom_text 合并position_stack

在 R 的 ggplot2 中，我们可以使用 `geom_text()` 函数来添加文本标签。如果我们想将文本标签放在堆叠图中的堆叠部分的顶部，可以使用 `position_stack()` 函数来指定标签的位置。如果要合并堆叠部分的文本标签，可以使用 `group` 参数。

以下是一个示例代码，展示如何将文本标签放在堆叠图的堆叠部分的顶部并将它们合并：

library(ggplot2)

# 创建数据框
df <- data.frame(
  group = c("A", "B", "C"),
  value1 = c(10, 20, 30),
  value2 = c(20, 30, 40)
)

# 创建堆叠图
p <- ggplot(df, aes(x = group)) +
  geom_bar(aes(y = value1), stat = "identity", fill = "blue") +
  geom_bar(aes(y = value2), stat = "identity", fill = "red") +
  ylim(c(0, 100))

# 添加文本标签
p <- p + geom_text(
  aes(label = paste(value1, value2, sep = " / "), y = value1 + value2),
  position = position_stack(vjust = 0.5),
  size = 4,
  group = df$group
)

# 合并文本标签
p <- p + guides(fill = guide_legend(title = NULL, override.aes = list(colour = NA)))

在上面的代码中，我们首先创建了一个数据框，其中包含三个组和两个值列。然后我们使用 `ggplot()` 函数创建一个堆叠图，并使用 `geom_bar()` 函数添加两个堆叠的条形图。接下来，我们使用 `geom_text()` 函数添加文本标签，并使用 `position_stack()` 函数指定标签的位置。最后，我们使用 `group` 参数将文本标签合并在一起，并使用 `guides()` 函数去掉图例的颜色。