用R图创建差距分析

# 安装和加载ggplot2库
install.packages("ggplot2")
library(ggplot2)

# 创建示例数据
group1 <- c(10, 12, 15, 8, 9)
group2 <- c(14, 16, 11, 13, 10)

# 计算差距指标
diff <- group2 - group1

# 创建差距分析图表
data <- data.frame(Group = c(rep("Group 1", length(group1)), rep("Group 2", length(group2))), 
                   Value = c(group1, group2), 
                   Diff = c(diff, diff))
                   
ggplot(data, aes(x = Group, y = Value, fill = Group)) +
  geom_bar(stat = "identity", position = "dodge") +
  geom_text(aes(label = Diff), position = position_dodge(width = 0.9), vjust = -0.5) +
  labs(title = "差距分析图表", x = "群体", y = "值") +
  theme_minimal()