|
|
相关文章推荐
从R中的for循环写入数据帧
EN
问
从R中的for循环写入数据帧
Stack Overflow用户
提问于
2010-04-02 05:30:45
回答 4
查看 68.1K
关注 0
票数 17
我正在尝试从循环写入R中的数据帧，例如像this>这样的循环
for (i in 1:20) {
print(c(i+i,i*i,i/1))}并将每行3个值写入具有三列的数据帧，以便每次迭代都采用新的行。我尝试过使用矩阵、ncol=3和按行填充，但只从循环中获得了最后一项。
谢谢。
EN
回答 4
Stack Overflow用户
发布于 2010-04-02 06:14:55
您可以使用rbind：
d <- data.frame()
for (i in 1:20) {d <- rbind(d,c(i+i, i*i, i/1))}
票数 24
EN
Stack Overflow用户
发布于 2012-06-29 17:31:21
另一种方法是
do.call("rbind", sapply(1:20, FUN = function(i) c(i+i,i*i,i/1), simplify = FALSE))
[,1] [,2] [,3]
[1,] 2 1 1
[2,] 4 4 2
[3,] 6 9 3
[4,] 8 16 4
[5,] 10 25 5
[6,] 12 36 6
如果不指定
simplify = FALSE
，则必须使用
t
转置结果。对于大型结构，这可能会很繁琐。
如果您有一个较大的数据集，并且/或者您需要多次重复此操作，则此解决方案尤其方便。
我在这个“线程”中提供了一些解决方案的时间。
> system.time(do.call("rbind", sapply(1:20000, FUN = function(i) c(i+i,i*i,i/1), simplify = FALSE)))
user system elapsed
0.05 0.00 0.05
> system.time(ldply(1:20000, function(i)c(i+i, i*i, i/1)))
user system elapsed
0.14 0.00 0.14
> system.time({d <- matrix(nrow=20000, ncol=3)
+ for (i in 1:20000) { d[i,] <- c(i+i, i*i, i/1)}})
推荐文章