在日期列表的频率图中对齐 x 轴

Question

我正在处理一组数据，每个数据都包含 3 个日期的列表，这些日期与采取三个连续操作之一的时间相关：

action.1 <- sample(seq(as.Date('2010-01-01'), as.Date('2010-02-01'), by="day"), 200, replace=TRUE)
action.2 <- action.1 + sample(seq(0,10,by=1), 200, replace=TRUE)
action.3 <- action.2 + sample(seq(0,40,by=1), 200, replace=TRUE)

为了可视化操作之间的持续时间如何取决于何时采取action.1——例如，更高频率的action.1是否会延长采取action.2的时间？，我绘制

rankn <- rank(action.1, ties.method = "first")

attach(mtcars)
layout(matrix(c(1,2), 2, 1, byrow = TRUE))

d1 = min(action.1, action.2, action.3)
d2 = max(action.1, action.2, action.3)

plot(table(action.1))

plot(action.1, rankn, col="red3", xlim=c(d1, d2))
points(action.2, rankn, col='green3')
points(action.3, rankn, col='blue3')

并获得这个数字：

但是，我无法弄清楚如何对齐这两个数字，以使频率图中 x 轴的上限与最右边的红点重合。我尝试设置plot(table(action.1)), xlim=c(d1,d2))，但它只是让顶部的数字消失了。有没有办法解决这个问题？

Answer 1

找到列表之间的公共部分，应该是max(min(list_1), min(list_2),...) 到min(max(list_1), max(list_2),...)。

所以问题出在你的d2:d2 = 2010-03-15，而不是你应该分配它：

d2 <- min(max(action.1), max(action.2), max(action.3))

然后，d2 = 2010-02-01，我想也是d1，分配给d1 <- max(min(action.1), min(action.2), min(action.3))。如果这是您的预期结果（忽略中文格式）：

编辑： 我更喜欢使用par(mfrow = c(2,1)) 来管理绘图布局。所以：

  par(mfrow = c(2,1))

  d1 <- max(min(action.1), min(action.2), min(action.3))
  d2 <- min(max(action.1), max(action.2), max(action.3))

  plot(table(action.1))

  plot(action.1, rankn, col="red3", xlim=c(d1, d2))
  points(action.2, rankn, col='green3')
  points(action.3, rankn, col='blue3')