列出没有唯一列的数据框

Question

我有这个循环来生成一些值

for (j in 1:2)  {
  table <- rep(data.frame( 
    matrix(c(letters[1:2], 
             sample(c(rep(1,100),0), size = 1),
             sample(c(rep(0,100),1), size = 1)),  ncol = 2) ), j)
}

我想得到这样的输出

X1 X2
a  1
b  0
a  1
b  1

获取一列字母和第二列数字的表格

我试过了

do.call(rbind, table)
data.frame(matrix(unlist(table), nrow=length(table), byrow=TRUE))

但是我无法将值获取到数据表中的右列。

Answer 1

table

在每次迭代中都会更新。 相反，我们可以使用

replicate

来创建

list

lst1 <- replicate(2,  data.frame( 
    matrix(c(letters[1:2], 
             sample(c(rep(1,100),0), size = 1),
             sample(c(rep(0,100),1), size = 1)),  ncol = 2) ), simplify = FALSE)
do.call(rbind, lst1)