在R中对齐Boxplot和Barplot

Question

我是R的新手。对于我的研究，我需要将我在16个横断面中发现的动物数量绘制成一个箱形图和一个条形图。我想用mfrow将两个图组合成一个图像。 x轴显示我在场中的日期做横断面有几个停止点。箱线图显示了站点之间的可变性。条形图显示了3个分类单元特定日期的整体活动。 情节很好，但我无法对齐它们，因此日期一的箱线图低于同一日期的条形图。 我用盒子图的“at”参数按照我的意愿对齐它们，但是我无法将条形图与我在箱线图中使用的设置对齐，因为它不使用“at”，而是“width”和“space” ”

par(mfrow=c(2, 1))

barplot(t(test), width=0.8,col=c("darkgoldenrod1","black","antiquewhite"),ylim=c(0,250),xlim=c(0.5,18),space=c(0.3,0.3,0.3,0.3,1.3,0.3,0.3,0.3,1.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3))

boxplot(x~y,xlim=c(1,18),at =c(1,2,3,4, 6,7,8,9, 11,12,13,14,15,16,17,18),outcex=1)

有没有办法将这两个图组合在一起，以便适合彼此？

编辑： 我在宽度，xlim和空间上玩了一点但是必须有更好的方式

EDIT2： 这是我创建的当前情节