R/动物园 : show a tick every year on x-axis

Question

我有一个动物园对象，有一个 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 只是改变了字体大小。)

Answer 1

你读了吗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值以使其适合。每年一次可能仍然太多。

计算“好”轴标签真的很难。