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

【问题标题】：display ticks for every second observation (rotated labels)显示每秒钟观察的刻度（旋转标签）
【发布时间】：2014-03-19 19:55:03
【问题描述】：

无法让我的 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)

文本(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

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

【问题讨论】：

标签： r plot labels

【解决方案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()

【讨论】：