如何创建列的频率，然后在R中对该数据执行聚合
如何创建列的频率，然后在R中对该数据执行聚合
提问于 2020-03-10 07:11:49
目标：
我有一个数据集，df，我希望首先总结每个日期的出现次数，然后将输出乘以某个数字。
Sent Duration Length
1/7/2020 8:11:00 PM 34 216
1/22/2020 7:51:05 AM 432 111
1/7/2020 1:35:08 AM 57 90
1/22/2020 3:43:26 AM 22 212
1/22/2020 4:00:00 AM 55 500期望的结果：
Date Count Aggregation(80)
1/7/2020 2 160
1/22/2020 3 240我希望计算特定“日期时间”发生的次数，然后将此结果乘以80。1/7/2020的日期是两次，1/22/2020的日期是三次。然后我把这个数字乘以数字80。
dput是：
structure(list(Sent = structure(c(5L, 3L, 4L, 1L, 2L), .Label = c("1/22/2020 3:43:26 AM",
"1/22/2020 4:00:00 AM", "1/22/2020 7:51:05 PM", "1/7/2020 1:35:08 AM",
"1/7/2020 8:11:00 PM"), class = "factor"), Duration = c(34L,
432L, 57L, 22L, 55L), length = c(216L, 111L, 90L, 212L, 500L)), class = "data.frame", row.names = c(NA,
-5L))，这就是我尝试过的：
df1<- aggregate(df$Sent, by=list(Category= df$dSent),
FUN=length)但是，我需要输出日期与聚合一起发生的频率(乘以80)。
欢迎任何建议。
回答 3
Stack Overflow用户
回答已采纳
发布于 2020-03-10 07:19:58
这是事情的data.table方式。
码
library( data.table )
#set data as data.table
setDT(mydata)
#set timestamps as posix
mydata[, Sent := as.POSIXct( Sent, format = "%m/%d/%Y %H:%M:%S %p" ) ]
#summarise
mydata[, .(Count = .N, Aggregation = .N * 80), by = .(Date = as.Date(Sent) )]输出
# Date Count Aggregation
# 1: 2020-01-07 2 160
# 2: 2020-01-22 3 240Stack Overflow用户
发布于 2020-03-10 07:26:55
我们可以将Sent转换为POSIXct格式并提取日期，计算每个日期中的行数，并将其乘以80。使用dplyr，我们可以这样做：
library(dplyr)
df %>%
group_by(Date = as.Date(lubridate::mdy_hms(Sent))) %>%
summarise(Count = n(), `Aggregation(80)` = Count * 80)
# Date Count `Aggregation(80)`
# <date> <int> <dbl>
#1 2020-01-07 2 160
#2 2020-01-22 3 240Stack Overflow用户
发布于 2020-03-10 07:35:52
使用table。
as.data.frame(cbind(Count=(r <- table(as.Date(df$Sent, format="%m/%d/%Y %H:%M:%S"))),
Agg=r*80))
# Count Agg
# 2020-01-07 2 160
# 2020-01-22 3 240或
`rownames<-`(as.data.frame(cbind(Count=(r <- table(as.Date(df$Sent, format="%m/%d/%Y %H:%M:%S"))),
Agg=r*80, Date=names(r)))[c(3, 1:2)], NULL)
# Date Count Agg
# 1 2020-01-07 2 160
# 2 2020-01-22 3 240页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60612936
复制相关文章
相似问题
腾讯云开发者
