ggplot2:将一个二进制条形图放入一个二进制堆叠条形图

library(ggplot2)
p <- ggplot(data = df)

p <- p + geom_bar(aes(x = 1, y = A, fill = "A"), stat = "identity")
p <- p + geom_bar(aes(x = 1, y = B, fill = "B"), stat = "identity")

p <- p + scale_fill_manual(values = c("A" = "blue", "B" = "red"))

p <- p + coord_flip()

p <- p + labs(title = "Binary Stacked Bar Chart", x = "", y = "")

library(ggplot2)

# 准备数据集
df <- data.frame(A = c(0, 1, 1, 0, 1),
                 B = c(1, 0, 1, 0, 0))

# 创建绘图对象
p <- ggplot(data = df)

# 创建二进制堆叠条形图
p <- p + geom_bar(aes(x = 1, y = A, fill = "A"), stat = "identity")
p <- p + geom_bar(aes(x = 1, y = B, fill = "B"), stat = "identity")

# 设置填充颜色
p <- p + scale_fill_manual(values = c("A" = "blue", "B" = "red"))

# 旋转为水平方向
p <- p + coord_flip()

# 设置标题和坐标轴标签
p <- p + labs(title = "Binary Stacked Bar Chart", x = "", y = "")

# 显示图表
print(p)