如何在R中获得带桨的应急表
如何在R中获得带桨的应急表
提问于 2022-10-11 17:19:39
例如，我想列出一个应急表。
a = c(1, 3, 4)
b = c(2, 3, 5)
a_b = data.frame(a, b)
table(a_b)我得到了
b
a 2 3 5
1 1 0 0
3 0 1 0
4 0 0 1但我想要的是
b
a 1 2 3 4 5
1 0 1 0 0 0
2 0 0 0 0 0
3 0 0 1 0 0
4 0 0 0 0 1
5 0 0 0 0 0这张桌子怎么弄？
谢谢
回答 2
Stack Overflow用户
回答已采纳
发布于 2022-10-11 17:21:57
我们可以使用从两个列指定为factor元素的levels来创建unique
lvls <- sort(unique(unlist(a_b)))
table(lapply(a_b, factor, levels = lvls))-output
b
a 1 2 3 4 5
1 0 1 0 0 0
2 0 0 0 0 0
3 0 0 1 0 0
4 0 0 0 0 1
5 0 0 0 0 0Stack Overflow用户
发布于 2022-10-12 12:01:16
另一种方法可以是将数据视为稀疏矩阵，并创建如下矩阵
a = c(1, 3, 4)
b = c(2, 3, 5)
library(Matrix)
m <- sparseMatrix(a, b, dims = c(5, 5))
+matrix(m, nrow = 5, ncol = 5)
# [,1] [,2] [,3] [,4] [,5]
# [1,] 0 1 0 0 0
# [2,] 0 0 0 0 0
# [3,] 0 0 1 0 0
# [4,] 0 0 0 0 1
# [5,] 0 0 0 0 0页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/74031862
复制相关文章
相似问题
腾讯云开发者
