在 x 轴和 y 轴上创建时间图（在 R 中）

Question

有两个时间点（两次测量），我想在 x 轴上绘制第一个时间点，在 y 轴上绘制第二个时间点作为点，因此我可以很容易地检查上面的数据点第二次测量在第一次之后的 45° 线（大多数情况下都是如此，但不是所有情况）并评估从第一时刻开始经过的时间。

因此我有两列日期，我可以将它们转换为 date 或 date-time 对象。我现在无法估计哪种格式可以更容易地实现情节。

D = data.frame(time1 = c("2007-06-22","2007-05-22","2007-05-23"), time2 = c("2007-06-22","2007-05-24","2007-06-05"))
D$time1 <- strptime(D$time1, format = "%Y-%m-%d")
D$time2 <- strptime(D$time2, format = "%Y-%m-%d")
class(D$time1)
D$time1 <- as.Date(D$time1, format = "%Y-%m-%d")
class(D$time1)

我需要像这样简单的东西：

plot(D$time1, D$time2)

但我还需要一个可修改的版本，它不绘制日期，但允许休息（周、月、年），比如月。

非常感谢您的想法。

解决方案：两个版本原则上都有效。我选择了 ggplot 因为它在标签等方面更灵活。我提前进行了数据清理，所以在对缺失数据进行子集化之后，我使用了：

library( ggplot2 )
ggplot( mydata, aes(x=t0, y=t1) ) + geom_point() +
  scale_x_date(date_labels = "%b %y", date_breaks = "3 month") +
  scale_y_date(date_labels = "%b %y", date_breaks = "3 month")

3 个月是我 2 年数据的一个很好的休息时间。这是我的解决方案：

Answer 1

你可以这样做：

dates_axis <- as.Date(strptime(c("2007-01-01","2007-12-01"), format = "%Y-%m-%d"))
dates_axis <- seq.Date(dates_axis[1],dates_axis[2],"month")

oldpar <- par()
par(mar = c(6,6,1,1))
plot(dates_axis,dates_axis,
    xaxt = "n",
    yaxt = "n",
    bty = "n",
    type = "n",
    xlab = "",
    ylab = "")
axis(1, at = dates_axis, labels = months(dates_axis), las = 2)
axis(2, at = dates_axis, labels = months(dates_axis), las = 1)
points(D$time1, D$time2, pch = 20)
abline(a = 0, b = 1)
par(oldpar)

Answer 2

ggplot 理解 time/date 数据。使用日期 class，正如您在问题中所做的那样：

D <- data.frame( time1 = as.Date(c("2007-06-22","2007-05-22","2007-05-23")),
                time2 = as.Date(c("2007-06-22","2007-05-24","2007-06-05")) )

现在可以传给ggplot，使用scale_x_date和scale_y_date实现灵活指定breaks/labels/etc.:

library( ggplot2 )
ggplot( D, aes(x=time1, y=time2) ) + geom_point() +
    scale_x_date( date_labels = "%b %d", date_breaks = "1 week") +
    scale_y_date( date_labels = "%b %d", date_breaks = "1 day" )

有关详细信息，请参阅 ?scale_x_date。

在 x 轴和 y 轴上创建时间图（在 R 中）

Create a plot with time on the x- and y-axis (in R)

plot

datetime

r

strptime

as.date