r - 将向量转换为 data.frame，每个唯一值对应一列

Question

我们得到一个向量，如下所示:

x <- c(1,2,1,5,2,1,2,5,1)

我们需要的是一个data.frame say y，行数等于length(x)，列数等于length(unique(x))，这意味着 x 中每个唯一项目一列，这样 y[i,j]==TRUE当且仅当 x 的第 i 元素是 x 的第 j 个唯一项(分配给列j):

y <- data.frame("1"=x==1, "2"=x==2, "5"=x==5, check.names=F)

执行此操作的简单方法是:

y <- setNames(data.frame(sapply(unique(x), function(i) x==i)), unique(x))

您有更好的主意(即特定功能)吗？

Answer 1

如果您可以接受二进制表示而不是数据的逻辑表示，我会只使用table:

y <- table(seq_along(x), x)

要获取 data.frame，请使用 as.data.frame.matrix:

as.data.frame.matrix(y)
#   1 2 5
# 1 1 0 0
# 2 0 1 0
# 3 1 0 0
# 4 0 0 1
# 5 0 1 0
# 6 1 0 0
# 7 0 1 0
# 8 0 0 1
# 9 1 0 0