Bagaimana cara mengonversi banyak file XLSX menjadi banyak file CSV menggunakan NESTED FOR LOOPS di R?

Saya telah mencoba mengubah banyak .xlsx menjadi banyak .csv

Pertama, saya membuat daftar dengan semua .xlsx yang ingin saya konversi.

> especies
 [1] "Aburria jacutinga.xlsx"       "Acrobatornis fonsecai.xlsx"   "Alectrurus tricolor.xlsx"    
 [4] "Amadonatur lacernulatus.xlsx" "Amazona pretrei.xlsx"         "Amazona rhodocorytha.xlsx"   
 [7] "Amazona vinacea.xlsx"         "Anodorhynchus leari.xlsx"     "Anthus nattereri.xlsx"       
[10] "Antilophia bokermanni.xlsx"

Kemudian, saya mengedit elemennya agar tidak ada spasi pada namanya dan membuat vektor lain. Itu berakhir seperti ini:

> nomes_
 [1] "Aburria_jacutinga"       "Acrobatornis_fonsecai"   "Alectrurus_tricolor"     "Amadonatur_lacernulatus"
 [5] "Amazona_pretrei"         "Amazona_rhodocorytha"    "Amazona_vinacea"         "Anodorhynchus_leari"    
 [9] "Anthus_nattereri"        "Antilophia_bokermanni"

Kemudian saya mencoba loop for bersarang berikut untuk mengonversi setiap file .xlsx menjadi file .csv:

for (file in especies){
  xlsx_objeto<- readWorksheetFromFile(file=file, sheet=1, keep=c(2,3,4,6,7,8,9,10,13,18))
  for( j in nomes_){
    write.csv(xlsx_objeto,file=paste0("./csv/",j,".csv"))
  }
}

Yang saya dapatkan adalah satu file .csv untuk setiap elemen di nomes_. Tidak apa-apa. Namun di dalam file .csv ini persis sama. Semuanya memiliki data dari file .xlsx terakhir di daftar especies.


r csv loops nested xlsx
person Tiago    schedule 30.01.2015    source sumber

Jawaban (1)


arrow_upward
0
arrow_downward

Akhirnya, saya bisa mengaturnya. Ini dia kodenya. Maaf komentarnya dalam bahasa Portugis.

library('XLConnect')
library('foreach')
# Cria uma lista com todos os arquivos em xlsx
especies<-list.files(pattern = "\\.xlsx$")
# Eliminar algum arquivo indesajado que esteja na pasta
especies<-especies[-c(1:41)]
## Cria um vetor que contenha os nomes desejados para serem os nomes dos arquivos finais.
# Retira a extensão ".xlsx"
nomes<-gsub(pattern=".xlsx",replacement="",especies)
# Substitui todo espaço por "_"
nomes_<-gsub(pattern=" ",replacement="_",nomes)
# Retira todo "." Atenção se quiser substituir pontos ".", estes devem estar entre colchetes assim: "[.]"
nomes_<-gsub(pattern="[.]",replacement="",nomes_) 
# Cria um csv com a lista dos nomes dos arquivos.(Opcional)
write.csv(nomes_,file="./csv/_lista_especies.csv", quote=FALSE)
## Usando FOREACH LOOP para converter cada arquivo xlsx em um csv que terão como nome o elementos da lista criada acima.
# Detalhes do uso do foreach em http://cran.r-project.org/web/packages/foreach/vignettes/foreach.pdf
foreach(file = especies, j = nomes_) %do% {
  xlsx_objeto<- readWorksheetFromFile(file=file, sheet=1, keep=c(2,3,4,6,7,8,9,10,13,18))
  write.csv(xlsx_objeto,file=paste0("./csv/",j,".csv"))
}
person Tiago    schedule 22.02.2015