Excel . Excel R, R, Excel ( csv, , Excel ). . , .
: R
, Excel , Excel , :
library(xlsx)
file.names = list.files(pattern="xlsx$")
df.list = lapply(file.names, read.xlsx, sheetIndex=1, header=TRUE)
:
df = do.call(rbind, df.list)
write.xlsx(df, "combinedData.xlsx", sheetName="data", row.names=FALSE)
: Excel
, Excel ( , , R). iris :
df.list = split(iris, iris$Species)
Excel, Excel , :
wb = createWorkbook()
sheet = createSheet(wb, "data")
addDataFrame(df.list[[1]], sheet=sheet, row.names=FALSE, startRow=1)
. startRow , .
startRow = nrow(df.list[[1]]) + 2
for (i in 2:length(df.list)) {
addDataFrame(df.list[[i]], sheet=sheet, row.names=FALSE, col.names=FALSE,
startRow=startRow)
startRow = startRow + nrow(df.list[[i]])
}
:
saveWorkbook(wb, "combinedData.xlsx")
addDataFrame , Excel . , , , R, Excel ( csv ) .