如何同时使用“for loop”和“write.csv”？答案

【问题标题】：how to use "for loop" and "write.csv" at the same time?如何同时使用“for loop”和“write.csv”？
【发布时间】：2013-10-29 04:13:17
【问题描述】：

我有一个数组。它有纬度、经度、时间和价值。时间从 1 到 300。这是时间 = 1 的数组的一部分。

myarray[,,1]
     lon                        
    lat -124.5  -123.5  -122.5  -121.5  -120.5  -119.5  -118.5
31.5    0   0   0   0   0   0
32.5    0   0   0   0   0   0
33.5    0   0   0   0   0   0
34.5    0   0   0   0   0   0
35.5    0   0   0   0   0   0
36.5    0   0   0   768.1   0   126.2
37.5    0   0   0.2 0   811 212.1
38.5    0   0   3055    0   243.9   243.7
39.5    0   0   1.5 0.1 3   0
40.5    0.1 16.8    4.3 0.5 2.1 0
41.5    0.2 398.6   0.4 1.2 1.6 0
42.5    0   0.1 0.9 0.1 0.7 0

我想同时使用“write.csv”和“for loop”从数组中读取每个时间步长（1 到 300）的数据，并将它们存储在具有“i”的单个 .csv 文件中指数。我使用了这个命令，但它似乎不起作用：

for (i in 1:300)    write.csv(myarray[,,i],"myarray.i.csv")

【问题讨论】：

查看?paste，了解如何构造一个字符串，其中i 被评估为1 到300 之间的当前值，而不是仅仅作为字母“i”。
类似paste("myarray", i, "csv", sep = ".")

标签： r csv for-loop

【解决方案1】：

有多种方法可以解决这个问题：

paste('myarray', i, 'csv', sep = '.')

或：

sprintf('myarray.%d.csv', i)

我更喜欢最后一个。

【讨论】：

@PaulHiemestra，sprintf 是首选，只是因为语法更简洁，还是还有其他原因？

【解决方案2】：

这应该可以正常工作：

n = dim(mydata)[3]

for(i in 1:n) {
  #unpack a 3D array
  mat = mydata[,,i]
  form = sprintf('subject_%s.csv', i)
  write.csv(mat, file = form)

}

【讨论】：

【解决方案3】：

一种方法是

for (i in 1:300)  {
write.table(myarray[,,i],file=""myarray.i.csv"",append=TRUE,sep=",",col.names=TRUE,row.names=TRUE) 
  }

【讨论】：