ggplot2:如何按填充变量的比例对堆叠条形图进行重新排序

# 加载必要的包
library(ggplot2)

# 创建示例数据集
data <- data.frame(
  category = rep(c("A", "B", "C"), each = 3),
  subcategory = rep(c("X", "Y", "Z"), times = 3),
  value = c(30, 50, 70, 60, 40, 80, 20, 90, 10)
)

# 计算每个 category 下 subcategory 的总和
totals <- data %>%
  group_by(category) %>%
  summarise(total = sum(value))

# 将总和数据合并回原始数据集
data <- merge(data, totals, by = "category")

# 计算每个 subcategory 在其 category 中的比例
data <- data %>%
  group_by(category) %>%
  mutate(percentage = value / total)

# 按比例对 subcategory 进行排序
data <- data %>%
  group_by(category) %>%
  arrange(desc(percentage)) %>%
  mutate(order = row_number())

# 绘制堆叠条形图
ggplot(data, aes(x = category, y = value, fill = subcategory)) +
  geom_bar(stat = "identity") +
  scale_fill_brewer(palette = "Set1") +
  theme_minimal() +
  labs(title = "Stacked Bar Chart with Proportional Sorting",
       x = "Category",
       y = "Value",
       fill = "Subcategory")