R 在具有多个响应变量的比例堆叠条形图上方添加总计

在绘制图形时，您try 过的创建数据的数字版本的方法是最简单的.我已经提供了一个tidyverse的方法来计算您的组的总和.

您需要为比例图上的文本标签设置position = "fill".我将geom_text()替换为stat_summary()，并将position = "fill"添加到比例图中，以便正确显示标签和条形图.

请注意，我找不到使用geom_text()或stat_summary()(如果是scale_y_continuous(expand = c(0,0)))在y轴之外绘制文本的方法.所以我求助于coord_cartesian(clip = 'off')把你的标签放在吧台上.如果要使用scale_y_continuous(expand = c(0,0))，请通过更改vjust将标签放置在地块内.可能有一种方法可以使用annotate()或类似的方法在条形图上方绘制，如果有人知道如何使用，请在下面 comments .

Data and Packages个

library(dplyr)
library(tidyr)
library(ggplot2)

# Sum species groups by HNV values and add factor levels for Animal_vegetal
hnvf4 <- hnvf3 %>%
  pivot_longer(
    cols = starts_with("HNV"),
    names_to = c("HNV"),
    names_prefix = "HNV_",
    values_to = "value1") |>
  filter(value1 == 1 & Animal_vegetal != "") |>
  select(-value1) |> 
  group_by(HNV, Animal_vegetal) |>
  summarise(count = n(), .groups = "drop") |>
  ungroup() |>
  mutate(Animal_vegetal = factor(Animal_vegetal, 
                                  levels = c("Animal species", 
                                             "Vegetal species", 
                                             "Both")))

Counts Plot个

ggplot(data = hnvf4) +
  geom_bar(aes(x = HNV, y = count, fill = Animal_vegetal),
           stat = "identity") +
  stat_summary(aes(x = HNV, y = count, label = after_stat(y)),
               fun.y = "sum",
               geom = "text", 
               colour = "black",
               vjust = -1) +
  scale_x_discrete(labels=c("arable land", "grasslands", "mosaic landscape", 
                            "permanent croplands")) +
  scale_y_continuous(limits = c(0,100), 
                     breaks = c(0,25,50,75, 100),
                     expand = c(0,0)) +
  scale_fill_manual(values = c("#FDCDAC", "#B3E2CD","#CBD5E8")) +
  labs(x = "HNV farmland type", y="Number of studies", fill = "") +
  theme(axis.text.x = element_text(angle=90, vjust = 0.5, hjust=1), 
        axis.ticks.x = element_blank(),
        axis.line.y = element_line(linewidth = 0.5, colour = "black"),
        axis.ticks.length.y.left = unit(.25, "cm"),
        axis.title.y = element_text(margin = margin(r= 15)),
        panel.background = element_rect(fill = NA),
        legend.position = c(.99, .95),
        legend.justification = c("right", "top"))

Proportions Plot个

ggplot(data = hnvf4) +
  geom_bar(aes(x = HNV, y = count, fill = Animal_vegetal),
           stat = "identity",
           position = "fill") +
  stat_summary(aes(x = HNV, y = count, label = after_stat(y)),
               fun.y = "sum",
               geom = "text",
               position = "fill",
               colour = "black",
               vjust = -1) +
  scale_x_discrete(labels =c("arable land", "grasslands", "mosaic landscape", 
                             "permanent croplands")) +
  # scale_y_continuous(expand = c(0,0)) +
  coord_cartesian(clip = "off") +
  scale_fill_manual(values = c("#FDCDAC", "#B3E2CD","#CBD5E8") )+
  labs(x = "HNV farmland type", y="Proportion of studies", fill = "") +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1), 
        axis.ticks.x = element_blank(),
        axis.line.y = element_line(linewidth = 0.5, colour = "black"),
        axis.ticks.length.y.left = unit(.25, "cm"),
        panel.background = element_rect(fill = NA),
        axis.title.y = element_text(margin = margin(r = 15)))