我有如下資料
Time <- c("2021-08-30 7:24","2021-08-30 7:30","2021-08-30 7:54","2021-08-30 8:16","2021-08-30 8:27","2021-08-30 8:22","2021-08-31 2:39","2021-08-31 2:44","2021-08-31 2:50","2021-08-31 2:56","2021-08-31 7:42","2021-08-31 7:45","2021-08-31 7:50","2021-08-31 6:02")
Distance_m <- c(162,162,162,162,162,162,162,157,150,137,122,102,78,42)
df <- data.frame(Time, Distance_m)
df
Time Distance_m
1 2021-08-30 7:24 162
2 2021-08-30 7:30 162
3 2021-08-30 7:54 162
4 2021-08-30 8:16 162
5 2021-08-30 8:27 162
6 2021-08-30 8:22 162
7 2021-08-31 2:39 162
8 2021-08-31 2:44 157
9 2021-08-31 2:50 150
10 2021-08-31 2:56 137
11 2021-08-31 7:42 122
12 2021-08-31 7:45 102
13 2021-08-31 7:50 78
14 2021-08-31 6:02 42
我想根據日期和小時以 15 分鐘的間隔對 Distance_m 求和。
我期待輸出如下
Date Hour Time Distance_m
2021-08-30 7 54 486
2021-08-30 8 30 486
2021-08-31 2 56 606
2021-08-31 6 2 344
到目前為止我已經嘗試過
df <- tidyr::separate(df, Time, c("Date", "Time"), sep = " ")
df1<- df %>%
mutate(Time = hm(Time)) %>%
mutate(ttt= (lubridate::minute(Time) lubridate::hour(Time) * 60)) %>%
mutate(tt = floor(ttt/15) ) %>%
group_by(tt) %>%
summarize(Date = last(Date),Time = last(Time), Distance_m = sum(Distance_m))
但是輸出有點亂。我希望在處理大量資料時找到一種有效的方法。
謝謝
uj5u.com熱心網友回復：
雖然不完全給出您的預期結果，但也許可用。您可以看看這是否符合您的需求。
library(data.table)
setDT(df)
df[, Time := ymd_hm(Time)]
df[, groups := lubridate::round_date(Time, "15 minutes")]
df[, .(Distance_m_sum = sum(Distance_m)), by = groups]
groups Distance_m_sum
1: 2021-08-30 07:30:00 324
2: 2021-08-30 08:00:00 162
3: 2021-08-30 08:15:00 324
4: 2021-08-30 08:30:00 162
5: 2021-08-31 02:45:00 469
6: 2021-08-31 03:00:00 137
7: 2021-08-31 07:45:00 302
8: 2021-08-31 06:00:00 42
更多擴展示例
我認為你必須定義你的季度，使用 lubridate 方法有三個選項，round_date、floor_date 和天花板日期。重新思考我自己的例子，我會選擇floor_date，因為 2021-08-30 7:24 屬于 7:15-7:30 組。要查看所有變體：
library(data.table)
setDT(df)
df[, Time := ymd_hm(Time)]
df[, round_date := lubridate::round_date(Time, "15 minutes")]
df[, floor_date := lubridate::floor_date(Time, "15 minutes")]
df[, ceiling_date := lubridate::ceiling_date(Time, "15 minutes")]
df[, .(Distance_m_sum = sum(Distance_m)), by = round_date]
round_date Distance_m_sum
1: 2021-08-30 07:30:00 324
2: 2021-08-30 08:00:00 162
3: 2021-08-30 08:15:00 324
4: 2021-08-30 08:30:00 162
5: 2021-08-31 02:45:00 469
6: 2021-08-31 03:00:00 137
7: 2021-08-31 07:45:00 302
8: 2021-08-31 06:00:00 42
df[, .(Distance_m_sum = sum(Distance_m)), by = floor_date]
floor_date Distance_m_sum
1: 2021-08-30 07:15:00 162
2: 2021-08-30 07:30:00 162
3: 2021-08-30 07:45:00 162
4: 2021-08-30 08:15:00 486
5: 2021-08-31 02:30:00 319
6: 2021-08-31 02:45:00 287
7: 2021-08-31 07:30:00 122
8: 2021-08-31 07:45:00 180
9: 2021-08-31 06:00:00 42
df[, .(Distance_m_sum = sum(Distance_m)), by = ceiling_date]
ceiling_date Distance_m_sum
1: 2021-08-30 07:30:00 324
2: 2021-08-30 08:00:00 162
3: 2021-08-30 08:30:00 486
4: 2021-08-31 02:45:00 319
5: 2021-08-31 03:00:00 287
6: 2021-08-31 07:45:00 224
7: 2021-08-31 08:00:00 78
8: 2021-08-31 06:15:00 42
uj5u.com熱心網友回復：
基本 R 選項用于cut以 15 分鐘的間隔劃分資料并aggregate匯總資料。
df$Time <- as.POSIXct(df$Time, format = '%Y-%m-%d %H:%M', tz = 'UTC')
aggregate(Distance_m~Time_cut, transform(df, Time_cut = cut(Time, '15 mins')), sum)
# Time_cut Distance_m
#1 2021-08-30 07:24:00 324
#2 2021-08-30 07:54:00 162
#3 2021-08-30 08:09:00 324
#4 2021-08-30 08:24:00 162
#5 2021-08-31 02:39:00 469
#6 2021-08-31 02:54:00 137
#7 2021-08-31 05:54:00 42
#8 2021-08-31 07:39:00 302
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/338791.html