R中的數據操縱：一個人在每個期間花了多少時間？

Question

在R ，我有三個時間點

時間<-c（7，1，4）

並假設將時間段分為三個間隔：（0，3]，（3，5]，（5，8]

breaks <- c(3, 5, 8)

---

timeSpent的每個觀察結果都有一行，而每個期間都有一列。 它給出了每個觀察在每個時期花費的時間：

 timeSpent <- outer(X=time, Y=breaks, FUN=pmin)
 timeSpent <- cbind(timeSpent[, 1], 
                    sapply(X=1:(length(breaks) - 1), FUN=function(ii)
                      timeSpent[, ii + 1] - timeSpent[, ii]))

 > timeSpent
     [,1] [,2] [,3]
[1,]    3    2    2
[2,]    1    0    0
[3,]    3    1    0

例如，觀察值1在時間間隔1中花費了3天，在時間間隔2中花費了2天，在時間間隔3中花費了2天。對於觀察值2，它在時間間隔1中僅花費了1天，而在其余時間間隔中則什么也沒有。

---

您是否有更優雅的方式來獲取timeSpent ？

Answer 1

這有幫助嗎？

我們將零列cbind到timeSpent矩陣，這樣我們可以得到在第一個觀察窗中花費的初始時間，並將diff函數apply行...

res <- t( apply( cbind( 0 , timeSpent ) , 1 , diff ) )
     [,1] [,2] [,3]
[1,]    3    2    2
[2,]    1    0    0
[3,]    3    1    0