如何使用ggplot在R中创建包含2个数值变量的堆叠条形图，按1个因子变量分组-2次，并具有标准误差？

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

group <- c("Group A", "Group B", "Group A", "Group B")  # 因子变量
var1 <- c(10, 12, 8, 9)  # 第一个数值变量
var2 <- c(5, 6, 7, 8)  # 第二个数值变量

data <- data.frame(group, var1, var2)  # 创建数据框

ggplot(data, aes(x = group, y = var1, fill = group)) +  # 创建图表
  geom_bar(position = "fill", stat = "identity") +  # 创建堆叠条形图
  geom_errorbar(aes(ymin = var1 - se, ymax = var1 + se), width = 0.2)  # 添加标准误差线

+ labs(title = "Stacked Bar Chart with Standard Error",  # 添加标题
       x = "Group", y = "Value") +  # 添加坐标轴标签
  theme_bw() +  # 设置图表主题为黑白
  scale_fill_manual(values = c("#999999", "#E69F00"))  # 设置图例标签颜色

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

group <- c("Group A", "Group B", "Group A", "Group B")  # 因子变量
var1 <- c(10, 12, 8, 9)  # 第一个数值变量
var2 <- c(5, 6, 7, 8)  # 第二个数值变量

data <- data.frame(group, var1, var2)  # 创建数据框

ggplot(data, aes(x = group, y = var1, fill = group)) +  # 创建图表
  geom_bar(position = "fill", stat = "identity") +  # 创建堆叠条形图
  geom_errorbar(aes(ymin = var1 - se, ymax = var1 + se), width = 0.2) +  # 添加标准误差线
  labs(title = "Stacked Bar Chart with Standard Error",  # 添加标题
       x = "Group", y = "Value") +  # 添加坐标轴标签
  theme_bw() +  # 设置图表主题为黑白
  scale_fill_manual(values = c("#999999", "#E69F00"))  # 设置图例标签颜色