Question

我想在循环中构建一个数据框，每次使用cbind添加一个新列。我尝试以下方法：

test <- NULL
df <- data.frame(x=c(1,2,3,4))
test <- cbind(test, df)

这会产生错误：

Error in data.frame(..., check.names = FALSE) : arguments imply differing number of rows: 0, 4

在R中实例化空白数据框然后在循环中绑定它的正确方法是什么？

由于

Answer 1

您需要创建test作为具有相同行数的结构，以便cbind.data.frame不会引发错误：

 test <-data.frame(row.names=1:4)
 df <- data.frame(x=c(1,2,3,4))
 test <- cbind(test, df)

 test
  x
1 1
2 2
3 3
4 4

另外两种方法：

> test <-data.frame(row.names=1:4)
>      test[['x']] <-c(1,2,3,4)
> test
  x
1 1
2 2
3 3
4 4


> test <-data.frame(row.names=1:4)
>      test[1] <-list(x=c(1,2,3,4))
> test
  x
1 1
2 2
3 3
4 4

Answer 2

正如RomanLuštrik所指出的，使用cbind可能效率低下。您可以从空列表开始，然后循环将其转换为data.frame。

test <- list()
# inner loop assigment
test <- c(test,list(c(1:4)))
# after loop
test <- as.data.frame(test)

使用cbind动态扩展数据框列

2 个答案: