表数组

时间:2013-02-18 18:26:08

标签: r

我想将一些R表写入excel文件。所以我有以下内容?

 data <- list.files(path=getwd())
 n <- length(list)
 for (i in 1:n) 
     {
      data1 <- read.csv(data[i])
      outline <- data1[,2]
      outline <- as.table(outline)
      print(outline)   # this prints all n tables
      write.csv(outline, 'Test.csv') # this only writes the last table
     }

但我只将最后一个文件写入csv文件。不是所有的人。我该如何解决这个问题?

1 个答案:

答案 0 :(得分:1)

每次都写给test.csv。所以你继续写文件。您需要更改每个步骤的文件名以保留不同的文件。

尝试:

data <- list.files(path=getwd())
 n <- length(list)
 for (i in 1:n) 
     {
      data1 <- read.csv(data[i])
      outline <- data1[,2]
      outline <- as.table(outline)
      print(outline)   # this prints all n tables
      name <- paste0(i,"X.csv")
      write.csv(outline, name)
     }

看看你的代码,或许你想要这个:

data <- list.files(path=getwd())
     n <- length(list)
     for (i in 1:n) 
         {
          data1 <- read.csv(data[i])
          outline <- data1[,2]
          outline <- as.data.frame(table(outline))
          print(outline)   # this prints all n tables
          name <- paste0(i,"X.csv")
          write.csv(outline, name)
     }