我有一个带有 yearqtr 索引的动物园对象，涵盖大约 50 年。绘制时 x 轴每 10 年显示一次标签，感觉有点贫瘠：
b=zoo(1:200,as.yearqtr(1900+seq(1,200)/4))
plot(b)
一些研究让我明白了这一点：
plot(b,xaxt="n");axis(1,time(b))
这感觉就像从一个极端摆动到另一个极端，因为 x 轴是一个模糊的刻度，带有难看的分数标签。有没有简单的方法让它只显示年份？ （我最初寻找的是一种说法：“稍微降低 x 轴标签间距”，但似乎没有这样的东西？cex.axis 只是改变了字体大小。）
【问题讨论】：
你读过help(axis)吗？
这是一种方法，每四个季度创建一个简单的索引：
R> ind <- seq(1, length(b), by=4)
并使用它来索引轴位置和标签：
R> plot(b,xaxt="n")
R> axis(1,time(b)[ind], format(time(b)[ind]), las=2, cex.axis=0.5)
我使用了las=2 和较低的cex 值来匹配它。每年一次可能还是太多了。
计算“好的”轴标签真的很难。
【讨论】：
当您想要使用网格而不是刻度来更好地显示您的数据时，这可能是那些（罕见的）情况之一。正如@dirk-eddelbuettel 指出的那样——调整好的轴标签很难，尤其是在这样的密度下。您可能还希望您的标签在绘图内，因此网格会稍微隐藏它们的密度。最容易获得的网格是abline，除非你想玩ggplot2，但它比R中的标准图更丑（个人意见）。另外 - 使情节更广泛。事实上，最好也去掉 box around plot ;) 下面是 Dirk 方法的模型：
png("strangeplot.png",width=800)
#extend y-axis to fit inside labels and remove box
plot(b,type="n",xaxt="n",yaxt="n",ylab="",xlab="",ylim=c(min(b)-30,max(b)),bty="n"))
#use 'mpg' to get labels inside
axis(1,time(b)[ind], format(time(b)[ind]), las=2, cex.axis=0.6,tick=F,mgp=c(0,-2.5,0))
axis(2,tick=F,las=1)
#you locate lines slightly to the left of label...
abline(h=seq(0,200,by=50),v=time(b)[ind]-0.5,col=gray(0.9))
#...so you need to add extra single line in the end
abline(v=max(time(b)[ind])+0.5,col=gray(0.9))
#plot at the end to get it above grid
points(b,type="l")
dev.off()
【讨论】：
abline 中定义垂直条，以便它们从标签上方开始。