r - 日期的时间距离矩阵

Question

从一个非常简单的数据帧，如

    time1 <- as.Date("2010/10/10")
    time2 <- as.Date("2010/10/11")
    time3 <- as.Date("2010/10/12")
    test <- data.frame(Sample=c("A","B", "C"), Date=c(time1, time2, time3))

我如何获得样本 A、B、C 之间具有成对时间距离(样本之间耗时以天为单位)的矩阵？

   A  B  C
A  0  1  2
B  1  0  1
C  2  1  0

/edit:更改日期格式。很抱歉给您带来不便

Answer 1

要获得实际天数计算，您可以将天数转换为某个预定义日期后的日期，然后使用 dist .下面的例子(转换你的日子，我怀疑他们是如何代表你的期望的):

time1 <- as.Date("02/10/10","%m/%d/%y")
time2 <- as.Date("02/10/11","%m/%d/%y")
time3 <- as.Date("02/10/12","%m/%d/%y")
test <- data.frame(Sample=c("A","B", "C"), Date=c(time1, time2, time3))
days_s2010 <- difftime(test$Date,as.Date("01/01/10","%m/%d/%y"))
dist_days <- as.matrix(dist(days_s2010,diag=TRUE,upper=TRUE))
rownames(dist_days) <- test$Sample; colnames(dist_days) <- test$Sample

dist_days然后打印出来:

> dist_days
    A   B   C
A   0 365 730
B 365   0 365
C 730 365   0

其实 dist不需要将日期转换为天，只需执行 dist(test$Date)将工作数天。