你可以使用这样的东西 -
ggplot(Betas) + geom_bar(stat="summary", fun.y="mean", aes(x=L1L2:time:mod, y=Beta, fill=time, group=lex), colour="black", position=position_dodge(width=0.65), width=0.5) + facet_grid( ~ cohort)
你可以改变 width 参数 position_dodge 和 width 整体根据您的需要。
width
position_dodge
要么
dodge <- position_dodge(width = 0.5) ggplot(Betas) + geom_bar(stat="summary", fun.y="mean", aes(x=L1L2:time:mod, y=Beta, fill=time, group=lex), colour="black", position=dodge, width=0.5) + facet_grid( ~ cohort)
ggplot(Betas) + geom_bar(stat="summary", fun.y="mean", aes(x=L1L2:time:mod, y=Beta, fill=time, group=lex), colour="black", position=position_dodge(width=0.65), width=0.5) + facet_grid( ~ cohort + L1L2, scales = "free") + theme(panel.spacing.x=unit(0.9, "lines"))
**注意 - 我在单独的小平面网格中分离了L1 L2,然后您可以通过更改值来调整宽度 panel.spacing.x 参数。
panel.spacing.x