我正在尝试创建一个与两个先前生成的图重叠的图。结果非常接近我想要的结果，但是我无法调整每个条之间的间隔。下面是我用来生成箱线图的代码，
a <- ggplot(aes(y = SCORE, x = DATE, fill = CATEGORY), data = data_R1000) + geom_boxplot() + ylim(20,100) + labs(title = "Russell 1000") + theme(legend.position="bottom") + scale_fill_hue(c=150, l=70)
b <- ggplot(aes(y = SCORE, x = DATE, fill = CATEGORY), data = data_R1000) + geom_boxplot(width=0.8) + ylim(20,100) + labs(title = "US_MARKETOR") + theme(legend.position="bottom") + theme(panel.background = element_rect(fill = "transparent",colour = NA)) + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) + scale_fill_hue(c=50, l=85)
# extract gtable
g1 <- ggplot_gtable(ggplot_build(a))
g2 <- ggplot_gtable(ggplot_build(b))
# overlap the panel of 2nd plot on that of 1st plot
pp <- c(subset(g1$layout, name == "panel", se = t:r))
g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]], pp$t, pp$l, pp$b, pp$l)
## what I dd is to plot a new viewports.
vp=viewport(x=0.5,y=0.5,height=1,width=1)
pushViewport(vp)
grid.draw(g)
upViewport()
结果如下所示，
我想知道如何使上层的箱线图的垂直线可以与它们下方的垂直线重叠，而我可以保持上条更窄（也就是说，如何在连续条之间添加间隔，以便它们不会立即下一个对彼此？）
* 此外，我还需要在绘图上水平移动所有箱线图。有没有办法在不改变 x 轴的情况下调整箱线图的 x 轴位置？*
非常感谢您的帮助！