从barplot中获取ylim，以便在另一个函数中使用它

Question

我有两个条形图被绘制，其中一个是堆叠的，另一个是不是。

b <- barplot(c(10,20,30,40), beside=T)
c <- barplot(t(cbind(c(1,2,3,4), c(3,4,2,1))), beside=F)

我希望堆叠的条形图与第一个条形图具有相同的ylim。感谢任何建议。

Answer 1

您可以在使用ylim绘制第一个绘图后获取第一个绘图的par("usr")，并将其用于第二个绘图：

# plot the first barplot
b <- barplot(c(10,20,30,40), beside=T)
# get the extreme coordinates for y axis
ylim_plot1 <- par("usr")[3:4]
# plot the second barplot with parameter ylim
c <- barplot(t(cbind(c(1,2,3,4), c(3,4,2,1))), beside=F, ylim=ylim_plot1)