显示每秒观察的刻度（旋转标签）

Question

无法让我的x轴看起来正确。

我希望每隔一次观察就会出现刻度和标签。不幸的是，虽然我的代码适当地显示了滴答，但每次标签值增加1。

换句话说，我希望刻度标签为2011-10-21, 2011-10-23, 2011-10-25...。我的代码目前生成刻度标签为2011-10-21, 2011-10-22, 2011-10-23 ...

我的数据框架如下：

date comp_count
1 2011-10-21         10
2 2011-10-22          3
3 2011-10-23          1
4 2011-10-24          1
5 2011-10-25          1
6 2011-10-26          2

这是我正在运行的代码：

plot(my_data$comp_count, main="comped sites over time", col="blue", type='l', lwd=2,       axes=FALSE, xlab="date", ylab="count")

axis(1,at=2*0:nrow(my_data), lab=FALSE)

text（2 * 0：nrow（my_data），par（“usr”）[3] -1，lab = my_data $ date，srt = 45，adj = 1，xpd = TRUE，cex = 0.8）

我的图表如下： http://i.imgur.com/CjIKFCV.jpg

我想保持刻度标签的旋转，因为我最终会使用更多的数据。

Answer 1

这是你正在寻找的吗？

> with(my_data, plot(comp_count, axes = FALSE, xlab = "", type = 'l'))
> axis(2)
> axis(1, at = my_data$date, labels = FALSE)
> ticks <- my_data$date[c(TRUE, FALSE)]
> text(seq(1, length(my_data$date), 2), par("usr")[3] - 0.25, srt = 45, 
       adj = 1, labels = ticks, xpd = TRUE)
> box()