Запись данных на указанный лист excel в r [duplicate]

Много хороших ответов здесь, но некоторые из них немного устарели. Если вы хотите добавить дополнительные листы в один файл, то это подход, который я нахожу для меня. Для ясности здесь приведен рабочий процесс для openxlsx версии 4.0

# Create a blank workbook
OUT <- createWorkbook()

# Add some sheets to the workbook
addWorksheet(OUT, "Sheet 1 Name")
addWorksheet(OUT, "Sheet 2 Name")

# Write the data to the sheets
writeData(OUT, sheet = "Sheet 1 Name", x = dataframe1)
writeData(OUT, sheet = "Sheet 2 Name", x = dataframe2)

# Export the file
saveWorkbook(OUT, "My output file.xlsx")

EDIT

Теперь я попробовал несколько других ответов, и мне действительно нравится @ Syed's. Он не использует все функции openxlsx, но если вы хотите быстрый и простой способ экспорта, то это, вероятно, самый простой.

В городе есть новая библиотека, из rOpenSci: writexl

Портативный, легкий блок данных для экспортера xlsx на основе libxlsxwriter. Нет необходимости в Java или Excel

Я нашел это лучше и быстрее, чем приведенные выше предложения (работа с версией dev):

library(writexl)
sheets <- list("sheet1Name" = sheet1, "sheet2Name" = sheet2) #assume sheet1 and sheet2 are data frames
write_xlsx(sheets, "path/to/location")

Размер данных incase мал, R имеет множество пакетов и функций, которые могут быть использованы в соответствии с вашим требованием.

write.xlsx, write.xlsx2, XLconnect также выполняет работу, но они иногда медленны, как сравнить с openxlsx.

Итак, если вы имеете дело с большими наборами данных и сталкивались с ошибками Java. Я предлагаю взглянуть на «openxlsx», который действительно потрясающий, и сократить время до 1/12.

Я тестировал все, и, наконец, я был впечатлен производительностью возможностей openxlsx.

Ниже приведены шаги для записи нескольких наборов данных на несколько листов.

 install.packages("openxlsx")
 library("openxlsx")

    start.time <- Sys.time()

    # Creating large data frame
    x <- as.data.frame(matrix(1:4000000,200000,20))
    y <- as.data.frame(matrix(1:4000000,200000,20))
    z <- as.data.frame(matrix(1:4000000,200000,20))

    # Creating a workbook
    wb <- createWorkbook("Example.xlsx")
    Sys.setenv("R_ZIPCMD" = "C:/Rtools/bin/zip.exe") ## path to zip.exe

Sys.setenv ("R_ZIPCMD" = "C: /Rtools/bin/zip.exe") имеет чтобы быть статичным, так как требует ссылки на некоторую утилиту из Rtools.

Примечание: Incase Rtools не установлен в вашей системе, сначала установите его для обеспечения плавного перехода. здесь ссылка для вашей ссылки: (выберите соответствующую версию)

https://cran.r-project.org/bin/windows/Rtools/ проверить параметры в соответствии с ссылка ниже (необходимо установить флажок во время установки)

https://cloud.githubusercontent.com/assets/7400673/12230758/99fb2202-b8a6-11e5-82e6-836159440831.png

    # Adding a worksheets : parameters for addWorksheet are 1. Workbook Name 2. Sheet Name

    addWorksheet(wb, "Sheet 1")
    addWorksheet(wb, "Sheet 2")
    addWorksheet(wb, "Sheet 3")

    # Writing data in to respetive sheets: parameters for writeData are 1. Workbook Name 2. Sheet index/ sheet name 3. dataframe name

    writeData(wb, 1, x)

    # incase you would like to write sheet with filter available for ease of access you can pass the parameter withFilter = TRUE in writeData function.
    writeData(wb, 2, x = y, withFilter = TRUE)

    ## Similarly writeDataTable is another way for representing your data with table formatting:

    writeDataTable(wb, 3, z)

    saveWorkbook(wb, file = "Example.xlsx", overwrite = TRUE)

    end.time <- Sys.time()
    time.taken <- end.time - start.time
    time.taken

пакет openxlsx действительно хорош для чтения и записи огромных данных из / в файлах excel и имеет множество опций для пользовательского форматирования в excel.

Интересный Дело в том, что нам не нужно беспокоиться о памяти кучи java здесь.

Я не знаком с пакетом WriteXLS; Я обычно использую XLConnect:

library(XLConnect)
##
newWB <- loadWorkbook(
  filename="F:/TempDir/tempwb.xlsx",
  create=TRUE)
##
for(i in 1:10){
  wsName <- paste0("newsheet",i)
  createSheet(
    newWB,
    name=wsName)
  ##
  writeWorksheet(
    newWB,
    data=data.frame(
      X=1:10,
      Dataframe=paste0("DF ",i)),
    sheet=wsName,
    header=TRUE,
    rownames=NULL)
}
saveWorkbook(newWB)

Это, безусловно, может быть векторизованным, как отмечалось выше, как @joran, но только для быстрого создания динамических имен листов я использовал цикл for для демонстрации .

Я использовал аргумент create=TRUE в loadWorkbook, так как я создавал новый .xlsx-файл, но если ваш файл уже существует, вам не нужно указывать его, поскольку значение по умолчанию равно FALSE.

Вот несколько скриншотов созданной книги:

[/g0]

[/g1]

[/g2]

Для меня WriteXLS предоставляет функциональность, которую вы ищете. Поскольку вы не указали, какие ошибки он возвращает, я покажу вам пример:

Пример

library(WriteXLS)
x <- list(sheet_a = data.frame(a=letters), sheet_b = data.frame(b = LETTERS))
WriteXLS(x, "test.xlsx", names(x))

Объяснение

Если x:

• список кадров данных, каждый из которых записывается на один лист
• символьный вектор (из объектов R), каждый объект записывается на один лист
• что-то еще, а затем посмотрите, что говорит помощь:

Подробнее об использовании

?WriteXLS

показано:

`x`: A character vector or factor containing the names of one or
     more R data frames; A character vector or factor containing
     the name of a single list which contains one or more R data
     frames; a single list object of one or more data frames; a
     single data frame object.

Решение

Для вашего примера вам нужно будет собрать все data.frames в списке во время цикла и использовать WriteXLS после завершения цикла.

Информация сессии

• R 3.2.4
• WriteXLS 4.0.0

Вы также можете использовать библиотеку openxlsx для экспорта нескольких наборов данных на несколько листов в одной книге. Преимущество openxlsx над xlsx заключается в том, что openxlsx удаляет зависимости от java-библиотек.

Напишите список данных .frames для отдельных листов, используя имена списков в качестве имен рабочих листов.

require(openxlsx)
list_of_datasets <- list("Name of DataSheet1" = dataframe1, "Name of Datasheet2" = dataframe2)
write.xlsx(list_of_datasets, file = "writeXLSX2.xlsx")

Я делаю это таким образом для openxlsx, используя следующую функцию

mywritexlsx<-function(fname="temp.xlsx",sheetname="Sheet1",data,
                  startCol = 1, startRow = 1, colNames = TRUE, rowNames = FALSE)
{
  if(! file.exists(fname))
    wb = createWorkbook()
  else
   wb <- loadWorkbook(file =fname)
  sheet = addWorksheet(wb, sheetname)

  writeData(wb,sheet,data,startCol = startCol, startRow = startRow, 
          colNames = colNames, rowNames = rowNames)
  saveWorkbook(wb, fname,overwrite = TRUE)
}