基本上你想要一个堆叠条形图，即使对于某些类别没有什么可堆叠的。为此，你必须做一些数据的处理和清理，比如去掉空值行，并将Indicators列一分为二：

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

data1 <- data |> 
  filter(Class_1 != "") |> 
  mutate(Class_1 = as.numeric(Class_1)) |> 
  separate(Indicators, into = c("level", "which"), fill = "left") |> 
  replace_na(list(level = "Total"))

ggplot(data1, aes(which, Class_1, fill = level)) +
  geom_col()

更新II：

library(tidyverse)

my_pattern1 <- c("No|Non|Low-risk|High-risk|Low|Medium|High")

data %>% 
  filter(Class_1 != "") %>% 
  mutate(x = case_when(str_detect(Indicators, 'CSA|childhood sexual abuse') ~ "Childhood sexual abuse",
                       str_detect(Indicators, 'discrimination') ~ "discrimination"),
         y = str_extract(Indicators, my_pattern1)) %>% 
  mutate(z = str_remove_all(Indicators, my_pattern1)) %>% 
  mutate(y= ifelse(is.na(y), "Total", y)) %>% 
  ggplot(aes(x = z, y = as.numeric(Class_1), fill= y))+
  geom_bar(stat = "identity", position = "stack")+
  theme(axis.text.x = element_text(angle = 45, vjust = 0.5, hjust=1))

更新：（@camille是对的，我现在修改了我的答案，删除了第一个）

library(tidyverse)
data %>% 
  separate(Indicators, c("Indicators_1",  "Indicators_2")) %>% 
  mutate(Indicators_3 = ifelse(is.na(Indicators_2), "Total", Indicators_1),
         Indicators_2 = coalesce(Indicators_2, Indicators_1)) %>% 
  filter(Class_1 != "") %>% 
  ggplot(aes(x = Indicators_2, y = as.numeric(Class_1), fill= Indicators_3))+
  geom_bar(stat = "identity", position = "stack")