Сохранить таблицу Excel как .csv с R? - PullRequest
Новая
       14

Сохранить таблицу Excel как .csv с R?

8 голосов
/ 19 ноября 2011

Какой самый простой способ преобразовать большую электронную таблицу Excel с несколькими рабочими листами в файлы .CSV в R?

Обратите внимание, что я протестировал XLConnect и XLSX и обнаружил, что мои листы Excel вызывают его сбой.Поэтому я специально ищу решение, которое не использует пакет XLConnect или XLSX.

Ответы [ 3 ]

9 голосов
/ 19 ноября 2011

Вот цикл для записи всех листов: 

require(gdata)
## install support for xlsx files
installXLSXsupport()
excelFile <- ("/full/path/to/excelFile.xlsx")
## note that the perl scripts that gdata uses do not cope well will tilde expansion
## on *nix machines. So use the full path. 
numSheets <- sheetCount(excelFile, verbose=TRUE)

for ( i in 1:numSheets) {
  mySheet <- read.xls(excelFile, sheet=i)
  write.csv(mySheet, file=paste(i, "csv", sep="."), row.names=FALSE)
}
5 голосов
/ 19 ноября 2011

http://rwiki.sciviews.org/doku.php?id=tips:data-io:ms_windows

РЕДАКТИРОВАТЬ: обратиться к опции read.xlsx:

Если у вас запущен Perl, вам нужна текущая версия gdata 

require(gdata)
installXLSXsupport()   #now the example from help(read.xls)
    # load the third worksheet, skipping the first two non-data lines...
    if( 'XLSX' %in% xlsFormats() )  # if XLSX is supported..
      data <- read.xls(exampleFile2007, sheet="Sheet with initial text", skip=2)
 data
#-----------------------
   X       X.1 D E.  F  G Factor
1 NA  FirstRow 1 NA NA NA   Red 
2 NA SecondRow 2  1 NA NA Green 
3 NA  ThirdRow 3  2  1 NA   Red 
4 NA FourthRow 4  3  2  1 Black 
#------------------------
write.csv(data)

Это было сделано на Mac, и до этого вопроса я всегда спотыкался на этапе installXLSXsupport (), так как всегда получал ошибку. На этот раз я запустил Perl из командной строки терминала и добился успеха после первой настройки моей личной конфигурации, определения зеркал CPAN на моем континенте, и я оставил Perl работающим.

1 голос
/ 06 апреля 2017

Обновлен ответ на основе пакета readxl.

library("readxl")

#function to read all sheets of a workbook
read_excel_allsheets <- function(filename) {
  sheets <- readxl::excel_sheets(filename)
  x <-    lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
  names(x) <- sheets
  x
}

sheetnames <- read_excel_allsheets("excelFile.xlsx")
names(sheetnames)
...