创建一个带有百分比的ggplot

install.packages("ggplot2")

# 加载 ggplot2 包
library(ggplot2)

# 创建示例数据集
data <- data.frame(
  Category = c("A", "B", "C", "D"),
  Value1 = c(30, 50, 20, 40),
  Value2 = c(70, 50, 80, 60)
)

# 将数据转换为长格式，以便 ggplot2 使用
library(tidyr)
data_long <- data %>%
  gather(key = "Variable", value = "Value", -Category)

# 计算每个类别的总和，以便计算百分比
data_long$Total <- ave(data_long$Value, data_long$Category, FUN = sum)

# 计算百分比
data_long$Percentage <- data_long$Value / data_long$Total * 100

# 创建堆叠条形图
p <- ggplot(data_long, aes(x = Category, y = Value, fill = Variable)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = paste0(round(Percentage, 1), "%")), position = position_stack(vjust = 0.5)) +
  scale_fill_manual(values = c("Value1" = "blue", "Value2" = "red")) +
  theme_minimal() +
  labs(title = "堆叠条形图带百分比", x = "类别", y = "值")

# 显示图形
print(p)