R 格子，合并条纹

我正在用下面的代码构建一个晶格图

table.df<-means 
library(lattice)
library(gridExtra)
graph1<-barchart(value1~Var1|Var2+Var3,data=table.df, ylab=NULL)
graph2<-barchart(value2~Var1|Var2+Var3,data=table.df, ylab=NULL)
grid.arrange(graph1,graph2, nrow=2, ncol=2)

---

table.df看看
latticeCextra:：useOuterStrips
为什么继续发布必须是半个空格的绘图？你是对的。对不起，我已经修改了这个问题。