R 格中的堆栈条形图

是否有一种方便的方法来组合不同的

晶格

条形图

图，以获得堆叠的

条形图

？（我可以使用

作为.layer

，但是这两个图彼此后面，没有堆叠）。例如：

library(lattice); library(dplyr); library(latticeExtra)

# sample data
barley %>% filter(variety %in% c("Trebi","Velvet","Peatland"))

b1   <- barley %>% filter(site == "Morris")
b2   <- barley %>% filter(site == "Duluth")
b1a2 <- barley %>% filter(site %in% c("Morris","Duluth"))

# stacked plot
plotorg <- barchart(yield ~ variety | year, data = b1a2,
                    groups = site, stack = TRUE)

# two barcharts that I want stack together
plot1   <- barchart(yield ~ variety | year, data = b1,
                    groups = site, stack = TRUE)

plot2   <- barchart(yield ~ variety | year, data = b2,
                    groups = site, stack = TRUE)

plot1 + plot2 # bars are behind each other and not stacked

library（lattice）；图书馆（dplyr）；图书馆（latticeExtra）
#样本数据
大麦%>%过滤器（品种%c（“特雷比”、“天鹅绒”、“泥炭地”））
b1%过滤器（现场==“莫里斯”）
b2%过滤器（站点==“德卢斯”）
b1a2%过滤器（站点%c（“莫里斯”、“德卢斯”））
#叠置图
plotorg不能组合晶格打印来创建堆叠打印。使用图层时，每个图层都不知道其他图层中的数据是如何渲染的，因此条形图不能显示在其他条形图的末尾。如果你想堆叠，你需要像在第一个绘图中那样将它们一起绘图。@MrFlick但是信息在绘图中，所以我看不出有什么理由不可能。如果我有正常的分组和额外的分组堆叠，这将是一个问题了。（如果我理解正确，只有一个组参数。我不是说这不可能，我是说lattice不支持这一点。
+
操作不会检查两个绘图是否使用完全相同的面板函数或试图以任何方式操纵渲染数据。它只是在彼此。如果这是你想要实现的，你必须自己完成所有的偏移量计算。@MrFlick是的，谢谢。我认为
+
也不是
lattice
，而是
latticeeextra
。但可能有人以前是如何实现这一点的（或一个包）好的，请求包推荐是堆栈溢出。（我考虑格子的额外部分，因为它是由同一个人制造的）。