我的数据集是这样的
Section Time x s3 9:35 2 s4 9:35 2 s1 9:36 1 s2 10:01 1 s8 11:00 2
因此,我希望按小时间隔对数据部分进行分组,并总结该间隔中的x值
我的预期产量是
sec Time x s1 9:00-10:00 1 s2 9:00-10:00 0 s3 9:00-10:00 2 s4 9:00-10:00 2 s8 9:00-10:00 0 s1 10.00-11.00 0 s2 10.00-11.00 1 s3 10.00-11.00 0 s4 10.00-11.00 0 s8 10.00-11.00 1
我试图从这篇文章in stack overflow获得一些帮助,但是我的查询出现以下错误.这里x是我的框架
data.frame(value = tapply(cbind(x$x),list(sec= x$section,cut(x$Time,breaks="1 hour")),sum)) Error in cut.default(x$Time,breaks = "1 hour") : 'x' must be numeric
我甚至不确定这是对还是错.我从未在R中使用过时间数据.所以我对如何实现这一点的任何帮助都将是一个很大的帮助.
解决方法
我认为问题在于你的时间列是字符格式吗?
library(dplyr) x <- data.frame(section = c("s3","s4","s1","s2","s8","s3"),Time = c("9:35","9:35","9:36","10:01","11:00","9:45","10:05","10:05"),x = c(2,2,1,6,4),stringsAsFactors = FALSE) x %>% rowwise %>% mutate(aux = as.numeric(strsplit(Time,":")[[1]][1]),time = paste0(aux,":00-",aux+1,":00")) %>% select(-aux,-Time) %>% ungroup %>% group_by(time,section) %>% summarise(x = sum(x)) %>% ungroup
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。