如何在R中创建一个水平条形图，该条形图是基于x轴上的一个额外变量在中间分割的？

# 安装并加载 ggplot2 包
if (!requireNamespace("ggplot2", quietly = TRUE)) {
  install.packages("ggplot2")
}
library(ggplot2)

# 创建数据集
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 30, 40),
  split_variable = c("X", "Y", "X", "Y")
)

# 创建水平条形图
p <- ggplot(data, aes(x = value, y = category, fill = split_variable)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("X" = "blue", "Y" = "red")) +
  theme_minimal() +
  labs(x = "Value", y = "Category", fill = "Split Variable")

# 显示图形
print(p)