R中每个ID的时间戳差异答案

【问题标题】：Difference of timestamp per ID in RR中每个ID的时间戳差异
【发布时间】：2014-11-20 12:24:25
【问题描述】：

@Akrun 这是我运行代码时的输出……当我输入View(df) 时，我得到了旧数据集。

> df %>%
+   group_by(ID) %>%
+   mutate(difftime=c(15, format(.POSIXct(diff(TIMESTAMP)), '%M:%S')))
Source: local data frame [192 x 9]
Groups: ID

      TIMESTAMP             ID             STATUS         ACTIVE       PSET
1  2014-08-05 00:00:00     28808            DOWN          67.410        70
2  2014-08-05 00:15:00     28808            DOWN          67.410        70
3  2014-08-05 00:30:00     28808            DOWN          67.410        70
4  2014-08-05 00:45:00     28808            DOWN          67.410        70
5  2014-08-05 01:00:00     28808            DOWN          67.410        70
..                 ...       ...                 ...             ...                     ...
Variables not shown: STAT (chr), PIN (chr), ONOFF (chr), difftime (chr)

我需要找到每个 ID 的时间戳差异，使每个 ID 的第一个时间戳为 NA。我已经尝试过diff，但我无法找到每个 ID 的差异。这可以通过order 简化一点，但是如何让R's diff function 知道 ID 可以不同以下是供您参考的示例数据。这是我现在按要求使用的代码。

foreach(i=1:length(xyzID)) %dopar%{
  xyz$timediff<-c(15,diff(xyz$TIMESTAMP))
    }

TIMESTAMP           ID      timediff
07/29/2014 10:15 AM 189252  NA
07/29/2014 10:45 AM 189252  0:30
07/29/2014 11:00 AM 189252  0:15
07/29/2014 11:15 AM 189252  0:15
07/29/2014 11:30 AM 302859  NA
07/29/2014 11:45 AM 302859  0:15
07/29/2014 04:00 PM 302859  04:15
07/29/2014 12:15 PM 189252  01:00
07/29/2014 12:30 PM 189252  0:15
07/29/2014 01:00 PM 189252  0:30
07/29/2014 01:15 PM 189252  0:15
07/29/2014 01:30 PM 178502  NA
07/29/2014 01:45 PM 178502  0:15

【问题讨论】：

添加了我的代码。 @akrun
您能否发布一个新示例，因为描述中不清楚。
将其分配给新的object。 IE。 df1 <- df %>%group_by(ID) %>% mutate(difftime=c(15, format(.POSIXct(diff(TIMESTAMP)), '%M:%S'))) 并检查 str(df1)。 as.data.frame(df1)
太棒了..它有效！我是 R 的新手。任何建议的 pdf 文件？？
请查看此链接stackoverflow.com/questions/1744861/…

标签： r

【解决方案1】：

试试

 library(dplyr)
 df$TIMESTAMP <- as.POSIXct(df$TIMESTAMP, format='%m/%d/%Y %I:%M %p')

 df %>%
     group_by(ID) %>% 
     mutate(timediff=c(NA, format(.POSIXct(diff(TIMESTAMP)), '%M:%S')))

 #             TIMESTAMP     ID timediff
 #1  2014-07-29 10:15:00 189252       NA
 #2  2014-07-29 10:45:00 189252    00:30
 #3  2014-07-29 11:00:00 189252    00:15
 #4  2014-07-29 11:15:00 189252    00:15
 #5  2014-07-29 11:30:00 302859       NA
 #6  2014-07-29 11:45:00 302859    00:15
 #7  2014-07-29 16:00:00 302859    04:15
 #8  2014-07-29 12:15:00 189252    01:00
 #9  2014-07-29 12:30:00 189252    00:15
 #10 2014-07-29 13:00:00 189252    00:30
 #11 2014-07-29 13:15:00 189252    00:15
 #12 2014-07-29 13:30:00 178502       NA
 #13 2014-07-29 13:45:00 178502    00:15

数据

df <- structure(list(TIMESTAMP = c("07/29/2014 10:15 AM", "07/29/2014 10:45 AM", 
"07/29/2014 11:00 AM", "07/29/2014 11:15 AM", "07/29/2014 11:30 AM", 
"07/29/2014 11:45 AM", "07/29/2014 04:00 PM", "07/29/2014 12:15 PM", 
"07/29/2014 12:30 PM", "07/29/2014 01:00 PM", "07/29/2014 01:15 PM", 
"07/29/2014 01:30 PM", "07/29/2014 01:45 PM"), ID = c(189252L, 
189252L, 189252L, 189252L, 302859L, 302859L, 302859L, 189252L, 
189252L, 189252L, 189252L, 178502L, 178502L)), .Names = c("TIMESTAMP", 
"ID"), class = "data.frame", row.names = c(NA, -13L))

【讨论】：

df %>% 是什么意思？
@Kaushal Sharma 它将多个参数链接在一起，即。 LHS 和 RHS 中的 dplyr
并且只有数据框具有相同数据类型的所有列才有效？如果我们有不同的数据类型会怎样。
@Kaushal Sharma 很抱歉，您能否详细说明一下。最好在您的帖子中使用新示例进行更新。

【解决方案2】：

或data.table（否则与dplyr相同）：

# data
df <- structure(list(TIMESTAMP = structure(c(1406621700, 1406623500, 
1406624400, 1406625300, 1406626200, 1406627100, 1406642400, 1406628900, 
1406629800, 1406631600, 1406632500, 1406633400, 1406634300), class = c("POSIXct", 
"POSIXt"), tzone = ""), ID = c(189252L, 189252L, 189252L, 189252L, 
302859L, 302859L, 302859L, 189252L, 189252L, 189252L, 189252L, 
178502L, 178502L)), .Names = c("TIMESTAMP", "ID"), row.names = c(NA, 
-13L), class = "data.frame")
# set to data.table
require(data.table)
setDT(df)
# calculate timedifference
df[, timediff := c(NA, format(.POSIXct(diff(TIMESTAMP)), '%M:%S')), by=ID]
df
#             TIMESTAMP     ID timediff
#  1: 2014-07-29 10:15:00 189252       NA
#  2: 2014-07-29 10:45:00 189252    00:30
#  3: 2014-07-29 11:00:00 189252    00:15
#  4: 2014-07-29 11:15:00 189252    00:15
#  5: 2014-07-29 11:30:00 302859       NA
#  6: 2014-07-29 11:45:00 302859    00:15
#  7: 2014-07-29 16:00:00 302859    04:15
#  8: 2014-07-29 12:15:00 189252    01:00
#  9: 2014-07-29 12:30:00 189252    00:15
# 10: 2014-07-29 13:00:00 189252    00:30
# 11: 2014-07-29 13:15:00 189252    00:15
# 12: 2014-07-29 13:30:00 178502       NA
# 13: 2014-07-29 13:45:00 178502    00:15

【讨论】：

每当我运行 timediff 部分时，我的 R 会话都会异常中止。知道为什么吗？