如何使用R和ggplot创建堆叠和非堆叠组合条形图？

我想在一个条形图中，在单个条形旁边有一对堆叠的条形图

下面显示的12组条形图是成对的，但我想再次细分它们，在每个条形图旁边添加另一个条形图。我希望轴保持不变，但将虚线白色条移动到堆叠条旁边的“减淡”位置

下面列出的数据和代码用于创建带有R（3.0.1）和ggplot2（0.9.3）的图表。每个“定向”和“无定向”实验有六种处理方法。每种治疗方法的情况略有不同（不幸的是）。一个是“系统”（上图），另一个是SA/SA Sw（下图）

---

x答案是在ggplot（）中使用“group”标记。我只是在定义组的数据中添加了一个新列。在本例中，“大坝”和“涵洞”的值为0，“大坝+涵洞”的值为1。我把这个专栏叫做“group1”

ggplot(x, aes(x=QuanMethod, 
      y=ScaledGains,
      fill=BarType, 
      color=BarType, 
      linetype=BarType,
      group=group1)) +
geom_bar(stat="identity") +
facet_grid(ConnectType~System) +
scale_linetype_manual(values=linetypes1) +
scale_fill_manual(values = barcols) +
scale_color_manual(values=bordcols) +
xlab("Quantification Method") +
ylab("Percent Connectivity Gains") +
theme(legend.position = "bottom",
legend.title =element_blank())

ggplot(x, aes(x=QuanMethod, 
      y=ScaledGains,
      fill=BarType, 
      color=BarType, 
      linetype=BarType,
      group=group1)) +
geom_bar(stat="identity") +
facet_grid(ConnectType~System) +
scale_linetype_manual(values=linetypes1) +
scale_fill_manual(values = barcols) +
scale_color_manual(values=bordcols) +
xlab("Quantification Method") +
ylab("Percent Connectivity Gains") +
theme(legend.position = "bottom",
legend.title =element_blank())