R-如何在箱形图和matplot之间对齐轴？

问题描述

我在R中创建了一个并排图，其中两个图都应该使用相同的y轴。但是，左边的图是boxplot，右边的图是matplot，在两个图中，我都设置了相同的y轴范围ylim = c(0,YMAX)。不幸的是，正如您在下面看到的那样，这些图似乎没有使用相同的布局范围---小节图将范围恰好指向轴的边缘，而matplot在轴的每个边缘处都有一个缓冲区。因此，图中的y轴未按预期对齐。

#Create layout for plot
LAYOUT <- matrix(c(rep(1,2),2:3),nrow = 2,ncol = 2,byrow = TRUE);
layout(LAYOUT,heights = c(0.1,1));

#Create plot matrix
par(mar = c(0.5,2.1,0.5,2.1),mgp = c(3,1,0),las = 0);
plot.new();
text(0.5,'Barplot and Violin Plot',cex = 1.2,font = 2);
par(mar = c(5.1,4.1,las = 0);

#Generate data for plot
x <- 1:100
y <- rchisq(100,df = 40);

#Generate plots
DENS <- density(y);
YMAX <- 1.4*max(y);
barplot(y,names.arg = x,ylim = c(0,YMAX));
matplot(x = cbind(-DENS$y,DENS$y),y = DENS$x,type = c('l','l'),lty = c(1,1),col = c('black','black'),xlim = c(-max(DENS$y),max(DENS$y)),YMAX),xlab = 'Density',ylab = '');

如何调整该图以将y轴对齐？ （理想情况下，我希望右侧的图将刻度线正确地放置在轴的边缘，就像左侧的情况一样。）

解决方法

user20650的评论解决了我的问题，因此我可以自由地将其扩展为更大的答案，并链接到有关该问题的一些文档。根据基本图形参数上的某些lecture notes，默认情况下，R中的某些基本图会在指定的轴范围之外添加6％的缓冲区。 xasx = 'i'和yasx = 'i'命令禁止此缓冲区（分别在x和y轴上），以便使轴限制直接位于轴的边缘。

在当前问题中将此解决方案应用于y轴（由于要在该轴上保留缓冲区，因此我们不将其应用于x轴）给出了以下命令和图表。从图中可以看到，两个图中的y轴现在正确对齐了。哇！

#Create layout for plot
LAYOUT <- matrix(c(rep(1,2),2:3),nrow = 2,ncol = 2,byrow = TRUE);
layout(LAYOUT,heights = c(0.1,1));

#Create plot matrix
par(mar = c(0.5,2.1,0.5,2.1),mgp = c(3,1,0),las = 0);
plot.new();
text(0.5,'Barplot and Violin Plot',cex = 1.2,font = 2);
par(mar = c(5.1,4.1,las = 0);

#Generate data for plot
x <- 1:100
y <- rchisq(100,df = 40);

#Generate plots
DENS <- density(y);
YMAX <- 1.4*max(y);
barplot(y,names.arg = x,ylim = c(0,YMAX));
matplot(x = cbind(-DENS$y,DENS$y),y = DENS$x,yaxs = 'i',type = c('l','l'),lty = c(1,1),col = c('black','black'),xlim = c(-max(DENS$y),max(DENS$y)),YMAX),xlab = 'Density',ylab = '');