## write to working directory
write.xlsx(iris, file = "writeXLSX1.xlsx", colNames = TRUE, borders = "rows")
write.xlsx(iris, file = "writeXLSX2.xlsx", colNames = TRUE, borders = "columns",
borderStyle = "dashed")
options("openxlsx.borderColour" = "#4F80BD") ## set default border colour
write.xlsx(iris, file = "writeXLSX3.xlsx", colNames = TRUE, borders = "rows",
sheetName = "Iris data", gridLines = FALSE)
options("openxlsx.borderStyle" = "dashDot")
write.xlsx(iris, file = "writeXLSX4.xlsx", colNames = TRUE, borders = "rows",
gridLines = FALSE)
options("openxlsx.borderStyle" = "medium")
hs <- createStyle(textDecoration = "BOLD", fontColour = "#FFFFFF", fontSize=12,
fontName="Arial Narrow", fgFill = "#4F80BD")
write.xlsx(iris, file = "writeXLSX5.xlsx", colNames = TRUE, borders = "rows",
headerStyle = hs)
## Lists elements are written to individual worksheets
l <- list(iris, mtcars, matrix(runif(1000), ncol = 5))
write.xlsx(l, "writeList.xlsx")
names(l) <- c("IRIS", "MTCARS", "RUNIF")
write.xlsx(l, "writeList2.xlsx")
Run the code above in your browser using DataLab