我目前正在使用一個包含具有相應時間戳的觀測值的資料框。請參閱下面的資料集子樣本。
現在，我想根據第二列中的時間差將 df 拆分為更小的段。但是，我不想創建多個新的 dfs，但我想為不同的段分配不同的“id”，并為第一列中的每個因素執行此操作。
即假設我有 0.4 天的截止時間。現在，我想通過資料框，只要時差大于 0.4 天，我希望 ID 從 A.1 更改為 A.2。只要時差小于 0.4 天，id 就會保持為 A.2。但是，只要下一行的時差大于 0.4 天，id 就應該更改為 A.3 等（請參閱所需的輸出）。
資料集的子樣本：
1 A.1 2019-02-04 22:33:41 0.0000000
2 A.1 2019-02-05 13:28:38 0.6214931
3 A.1 2019-02-05 13:28:38 0.0000000
4 A.1 2019-02-05 22:25:00 0.3724769
5 A.1 2019-02-06 16:13:35 0.7420718
6 A.1 2019-02-07 22:55:14 1.2789236
7 B.1 2019-02-07 22:55:14 0.0000000
8 B.1 2019-02-07 22:55:14 0.0000000
9 B.1 2019-02-08 12:42:42 0.5746296
10 B.1 2019-02-08 22:26:09 0.4051736
11 C.1 2019-02-08 22:26:09 0.0000000
12 C.1 2019-02-08 22:26:09 0.0000000
13 C.1 2019-02-08 22:26:09 0.0000000
14 C.1 2019-02-08 22:26:09 0.0000000
15 C.1 2019-02-12 11:23:57 3.5401389
期望的輸出：
1 A.1 2019-02-04 22:33:41 0.0000000
2 A.2 2019-02-05 13:28:38 0.6214931
3 A.2 2019-02-05 13:28:38 0.0000000
4 A.2 2019-02-05 22:25:00 0.3724769
5 A.3 2019-02-06 16:13:35 0.7420718
6 A.4 2019-02-07 22:55:14 1.2789236
7 B.1 2019-02-07 22:55:14 0.0000000
8 B.1 2019-02-07 22:55:14 0.0000000
9 B.2 2019-02-08 12:42:42 0.5746296
10 B.3 2019-02-08 22:26:09 0.4051736
11 C.1 2019-02-08 22:26:09 0.0000000
12 C.1 2019-02-08 22:26:09 0.0000000
13 C.1 2019-02-08 22:26:09 0.0000000
14 C.1 2019-02-08 22:26:09 0.0000000
15 C.2 2019-02-12 11:23:57 3.5401389
uj5u.com熱心網友回復：
在data.table：
dt[, V1 := paste0("A.", 1 cumsum(V4 >= 0.4))]
在dplyr：
df %>%
mutate(V1 = paste0("A.", 1 cumsum(V4 >= 0.4)))
uj5u.com熱心網友回復：
檢查differences 是否大于一天中秒數的 0.4 倍并計算cumsum。
paste0('A.', cumsum(c(0, diff(dat$X3)) > (24*60*60)*.4) 1)
# [1] "A.1" "A.2" "A.2" "A.2" "A.3" "A.4" "A.4" "A.4" "A.5" "A.6" "A.6" "A.6"
# [13] "A.6" "A.6" "A.7"
注意：如果你有時間作為字符格式，首先做
dat$X3 <- as.POSIXct(dat$X3)
獲取"POSIXt"格式，以秒為單位存盤。
資料：
dat <- structure(list(X1 = 1:15, X2 = c("A.1", "A.1", "A.1", "A.1",
"A.1", "A.1", "A.1", "A.1", "A.1", "A.1", "A.1", "A.1", "A.1",
"A.1", "A.1"), X3 = structure(c(1549316021, 1549369718, 1549369718,
1549401900, 1549466015, 1549576514, 1549576514, 1549576514, 1549626162,
1549661169, 1549661169, 1549661169, 1549661169, 1549661169, 1549967037
), class = c("POSIXct", "POSIXt"), tzone = ""), X4 = c(0, 0.6214931,
0, 0.3724769, 0.7420718, 1.2789236, 0, 0, 0.5746296, 0.4051736,
0, 0, 0, 0, 3.5401389)), row.names = c(NA, -15L), class = "data.frame")
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/393767.html
上一篇：如何創建一個程式，給定兩個日期并找出它們之間的小時數
下一篇：簡化物體框架核心查詢