Как я могу преобразовать много файлов XLSX во множество файлов CSV с помощью NESTED FOR LOOPS в R?

Я пытался преобразовать многие .xlsx во многие .csv

Сначала я составил список всех файлов .xlsx, которые я хочу преобразовать.

> 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"

Затем я редактирую элементы, чтобы в имени не было пробелов, и создаю другой вектор. Закончилось это так:

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

Затем я попробовал следующие вложенные циклы for для преобразования каждого файла .xlsx в файлы .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"))
  }
}

У меня есть по одному CSV-файлу для каждого элемента в nomes_. Это нормально. Но внутри эти .csv файлы точно такие же. Все они содержат данные из последнего файла .xlsx в списке especies.


r csv loops nested xlsx
person Tiago    schedule 30.01.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Наконец, я смог справиться с этим. Вот и код. Извините, комментарии на португальском языке.

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