r - 用 R 中另一个矩阵的值填充矩阵
问题描述
初始矩阵如下所示:
1 A 1
1 B 1
1 C 1
2 A 1
3 A 1
3 C 1
有必要记住:
A B C
1 1 1 1
2 1 0 0
3 1 0 1
我正在使用如下代码:
for (i in 1:length(t_data$cid)) {
t_cid <- t_data$cid[i]
t_val <- t_data$eventAction[i]
df_events[grep(t_cid, df_events$cid),grep(paste0("^",t_val,"$"), colnames(df_events))] <- 1
print(i)
}
但是我们谈论的是第一个矩阵中有超过一百万行,第二个矩阵中有一百列。5 分钟内大约 10k 行,太慢了。请帮忙。
解决方案
我认为xtabs
会有所帮助
> as.data.frame.matrix(xtabs(V3 ~ ., df))
A B C
1 1 1 1
2 1 0 0
3 1 0 1
数据
> dput(df)
structure(list(V1 = c(1L, 1L, 1L, 2L, 3L, 3L), V2 = c("A", "B",
"C", "A", "A", "C"), V3 = c(1L, 1L, 1L, 1L, 1L, 1L)), class = "data.frame", row.names = c(NA,
-6L))
推荐阅读
- python - xml setAttribute 引发错误 - NodeList 对象没有属性 setAttribute
- javascript - 将状态属性分配给 React 中的常量
- aws-cli - 使用 AWS CLI 提取多个信息
- c - 当使用dirent.h(在Windows中)循环C中的文件夹并使用dr.memory检查.exe文件时,我得到UNINITIALIZED READ错误
- python - 如何使用 eval() 和 kivy TextInput?
- c# - 按列表中的索引设置类中的属性值
- javascript - 更新页面数据
- opengl-es - 如何从非常稀疏的纹理中快速输出点?
- shiny - 如何使用 rmarkdown 将带有嵌入图像的表格格式化为 pdf 格式?
- python - 合并 CSV 文件时遇到问题