如何解决使用来自多行的 data.table 在 R 中重塑
虽然 Stackoverlow 上有很多关于在 R 中重塑数据的帖子,但我似乎找不到解释如何处理我的情况的帖子。
我有一个这样形状的数据集,如果 id 与类型 1,2 或 3 相关,则每行表示包含一个二进制文件。
data <- data.table( id = c(1,1,2,3,3),type1 = c(1,0),type2 = c(0,type3 = c(0,0))
> data
id type1 type2 type3
1: 1 1 0 0
2: 1 0 1 0
3: 1 0 0 1
4: 2 0 0 0
5: 2 0 1 0
6: 2 1 0 0
7: 3 0 1 0
8: 3 0 0 1
9: 3 0 0 0
但是,我希望将此信息包含在每个 id 值的一行中。
> data
id type1 type2 type3
1: 1 1 1 1
2: 2 1 1 0
3: 3 0 1 1
如何使用 data.table
解决此问题?
解决方法
library(data.table)
data <- data.table( id = c(1,1,2,3,3),type1 = c(1,0),type2 = c(0,type3 = c(0,0))
vars <- grep("^type",names(data),value = T)
data[,lapply(.SD,sum),.SDcols = vars,by = id]
#> id type1 type2 type3
#> 1: 1 1 1 1
#> 2: 2 1 1 0
#> 3: 3 0 1 1
由 reprex package (v1.0.0) 于 2021 年 2 月 11 日创建
,你可以做一个总结:
data1 <- data[,.(type1 = sum(type1),type2 = sum(type2),type3 = sum(type3)
),by = id]
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。