在循环中使用循环进行编号

Vineet Goti 发表于 Dev

Vineet Goti

我正在尝试生成几行文本，文本的结尾顺序更改数字。我正在使用“ paste（）”编写文本，并尝试使用“ for循环”顺序更改文本结尾处的数字。现在，我想编写几百行这些行，以便创建列表并尝试填充列表。举例来说，我想这样写：

”

  $DATA ESTIM1101001.csv
  $DATA ESTIM1101002.csv
  .
  .
  .
  $DATA ESTIM11010020.csv

  $DATA ESTIM1102001.csv
  $DATA ESTIM1102002.csv
  $DATA ESTIM1102003.csv
  .
  .
  .
  $DATA ESTIM11020020.csv


  $DATA ESTIM11030001.csv
  $DATA ESTIM11030002.csv
  .
  .
  . 
  $DATA ESTIM110300020.csv

详细来说，在ESTIM110i00j.csv中，i = 1到30，j = 1到20，
所以30 * 20 =共600行。

我正在尝试通过下面的代码做到这一点：

b <- list()
for (i in 1:30) {
 for(j in 1:20) {
   for(p in 1:600){
b[[p]]<-(paste("$DATA",paste("ESTIM110",i,"00",j,".csv",sep=""),sep=" "))}}}

但是，对于所有600行，我最终都是$ DATA ESTIM1010300020.csv。我怀疑我没有正确编写for循环来保持数字变化。非常感谢您帮助您清楚地了解for循环以完成此任务。谢谢你。

亚历克斯

您的逻辑有些偏离。它p在递增i或之前循环遍历600次j。解决问题的一种方法是添加一个计数器，例如

b <- list()
count <- 1
for (i in 1:30) {
    for(j in 1:20) {
        b[[count]]<-(paste("$DATA",paste("ESTIM110",i,"00",j,".csv",sep=""),
            sep=" "))
        count <- count + 1
    }
}

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。