r：创建具有所有可能选项和变量组合数量的数据框

Question

这个问题可能很明显，或者已经问过，但是我找不到解决方案：

我想创建一个具有所有可能组合（和变量数量）的数据框，使其看起来像以下示例：

dataframe <- data.frame(variable =   1:4, 
                        a = c("gender", NA, NA, NA),
                        b = c("age", NA, NA, NA),
                        c = c("city", NA, NA, NA),
                        d = c("education", NA, NA, NA),
                        e = c("gender", "age", NA, NA),
                        f = c("gender", "city", NA, NA), 
                        g = c("gender", "education", NA, NA), 
                        h = c("age", "city", NA, NA), 
                        i = c("age", "education", NA, NA), 
                        j = c("city", "education", NA, NA), 
                        k = c("gender", "age", "city", NA), 
                        l = c("gender", "age", "education", NA), 
                        m = c("gender", "city", "education", NA),
                        n = c("gender", "age", "city", "education"))

我有太多的变量，所以不值得写出来，我想避免错误。 感谢您的帮助！

Answer 1

这是combn一个选项。 获取vector变量名，遍历序列vector ，施加combn的vector与m指定为循环序列，转换为data.frame和cbind所有的list元素结合在一起。 cbind.fill的rowr适用于用NA fill行数少于最大行data.frame list元素

library(rowr)
res <- do.call(cbind.fill, c(fill = NA, lapply(seq_along(v1), function(i) {
       m1 <- combn(v1, i)
       if(is.vector(m1)) as.data.frame.list(m1)  else as.data.frame(m1)})))
colnames(res) <- letters[seq_along(res)]

或按照@Moody_Mudskipper的建议，

res1 <- do.call(cbind.fill, c(fill = NA, lapply(seq_along(v1), function(i) combn(v1, i))))
colnames(res1) <- letters[seq_len(ncol(res1))]

数据

v1 <- c('gender', 'age', 'city', 'education')