r - "axis"不会将 x Axis 添加到箱线图

Question

我正在尝试制作带有自定义 Axis 标签的箱线图，但我似乎无法向图中添加 x Axis 。

例如:

test <- data.frame(year=as.integer(rep(1963:2014, each=10)),
       response=rnorm(520))
boxplot(response~year, data=test, ylim=c(-3,3), xlab="", ylab="", 
    range=0, xaxt="n", yaxt="n")
responselabs <- as.numeric(c(-3:3, by=1))
yearlabs <- as.integer(seq(1965,2015, by=5))
axis(2, at=responselabs, tck=0.03, las=1)
axis(1, at=yearlabs, tck=0.03)

返回箱线图，但没有 x Axis 标签:

尝试通过首先制作一个空图来破解它，我可以获得 Axis ，但它不会添加箱线图:

plot(NA, ylim=c(-3, 3), xlim=c(1962, 2015), xaxt="n", yaxt="n", ylab="", xlab="")
axis(2, at=responselabs, tck=0.03, las=1)
axis(1, at=yearlabs, tck=0.03)
boxplot(response~year, data=test, ylim=c(-3,3), xlab="", ylab="", 
    range=0, xaxt="n", yaxt="n", add=T)

这是怎么回事？

Answer 1

我认为发生的事情是 boxplot 将 year 转换为 factor。我们可以通过在 axis 中使用 labels 参数来解决这个问题:

boxplot(response~year, data=test, ylim=c(-3,3), xlab="", ylab="", 
    range=0, xaxt="n", yaxt="n")
responselabs <- as.numeric(c(-3:3, by=1))
yearlabs <- as.integer(seq(1965,2015, by=5))
axis(2, at=responselabs, tck=0.03, las=1)
axis(1, at = yearlabs - 1962, labels = yearlabs)