R 我需要使用ggplot2制作堆叠条形图

第一个问题可以很容易地解决，方法是将您的指标列转换为一个以您所需的顺序设置的级别顺序的因子.其次，要 for each 州创建类似的绘图，请将数据放入数据框中，将其整形为长格式，将绘图代码放入函数中，过滤所需州的数据，最后使用lapply对所有州进行循环:

library(ggplot2)
library(tidyr)

data <- data.frame(
  State = State,
  Mean = Mean,
  Percentile_5th = Percentile_5th,
  Percentile_95th = Percentile_95th
)

data_long <- data |>
  tidyr::pivot_longer(
    -State,
    names_to = "Metric",
    values_to = "Value"
  )

data_long$Metric <- factor(
  data_long$Metric,
  levels = rev(c("Percentile_5th", "Mean", "Percentile_95th")),
  labels = rev(c("5th Percentile", "Mean", "95th Percentile"))
)

plot_fun <- function(state) {
  data_long |>
    subset(
      State %in% c("All India", state)
    ) |>
    ggplot(aes(x = State, y = Value, fill = Metric)) +
    geom_col(
      color = "white",
      linewidth = .25,
      width = .75
    ) +
    geom_text(aes(label = Value),
      position = position_stack(vjust = 0.5)
    ) +
    scale_fill_manual(
      values = c(
        "5th Percentile" = "orange",
        "Mean" = "blue",
        "95th Percentile" = "forestgreen"
      )
    ) +
    scale_y_continuous(expand = c(0, 0, .05, 0)) +
    labs(
      title = paste0(
        "Stacked Bar Plot for All India and ",
        state
      ),
      x = "State",
      y = "Values",
      fill = "Metric"
    ) +
    theme_bw() +
    theme(
      panel.grid = element_blank()
    )
}

# For all states run:
# lapply(State[-1], plot_fun)

lapply(State[-1][1:2], plot_fun)
#> [[1]]

#> 
#> [[2]]