表数组

Question

我想将一些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文件。不是所有的人。我该如何解决这个问题？

Answer 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)
     }