如何在R中使用xlsx包为所有单元格指定边框？_R

如何在R中使用xlsx包为所有单元格指定边框？

如何在R中使用xlsx包为所有单元格指定边框？,r,R,我是R编程新手，所以我会尝试使用xlsx为所有单元格添加边框，我的脚本如下 library(xlsx) wb <- createWorkbook(type='xlsx') sheet <- xlsx::createSheet(wb, sheetName = "addDataFrame1") data <- data.frame(mon=month.abb[1:10], day=1:10, year=2000:2009, date=seq(as.Da

我是R编程新手，所以我会尝试使用xlsx为所有单元格添加边框，我的脚本如下

library(xlsx)
wb <- createWorkbook(type='xlsx')
sheet <- xlsx::createSheet(wb, sheetName = "addDataFrame1")
data <- data.frame(mon=month.abb[1:10], day=1:10, year=2000:2009,
               date=seq(as.Date("1999-01-01"), by="1 year", length.out=10),
               bool=c(TRUE, FALSE), log=log(1:10),
               rnorm=10000*rnorm(10),
               datetime=seq(as.POSIXct("2011-11-06 00:00:00", tz="GMT"), by="1 hour",
                            length.out=10))
   cs1 <- CellStyle(wb) + Font(wb, isItalic=TRUE)+Fill(foregroundColor = "lightblue",backgroundColor = "lightblue", pattern = "SOLID_FOREGROUND")
  cs2<-Border(color="black", position=c("BOTTOM", "LEFT","TOP","RIGHT"), pen=c("BORDER_THIN", "BORDER_THIN","BORDER_THIN","BORDER_THIN"))
addDataFrame(data,sheet,col.names = TRUE,row.names = FALSE,startRow = 2,startColumn = 1,colnamesStyle = cs1,
         rownamesStyle = cs2)

  xlsx::saveWorkbook(wb, file="E:/ff.xlsx")

库（xlsx）
wb对于期望的结果
cs2
已编辑，2。添加了列表all\u Colstyle
以传递到addDataFrame1
函数中的Colstyle
参数
在下面这个结果中，我想要粗体的最后一行，我应该怎么做
以下是修改后的代码：
library(xlsx)
wb <- createWorkbook(type='xlsx')
sheet <- xlsx::createSheet(wb, sheetName = "addDataFrame1")
data <- data.frame(mon=month.abb[1:10], day=1:10, year=2000:2009,
               date=seq(as.Date("1999-01-01"), by="1 year", length.out=10),
               bool=c(TRUE, FALSE), log=log(1:10),
               rnorm=10000*rnorm(10),
               datetime=seq(as.POSIXct("2011-11-06 00:00:00", tz="GMT"), by="1 hour",
                            length.out=10))
cs1 <- CellStyle(wb) + Font(wb, isItalic=TRUE)+Fill(foregroundColor = "lightblue",backgroundColor = "lightblue", pattern = "SOLID_FOREGROUND")
cs2 <- CellStyle(wb) + Border(color="black", position=c("BOTTOM", "LEFT","TOP","RIGHT"), pen=c("BORDER_THIN", "BORDER_THIN","BORDER_THIN","BORDER_THIN"))

all_Colstyle<- rep(list(cs2), dim(data)[2]) 
names(all_Colstyle) <- seq(1, dim(data)[2], by = 1)

addDataFrame(data, sheet,col.names = TRUE, row.names = FALSE, startRow = 2,startColumn = 1,colnamesStyle = cs1, rownamesStyle = cs2, colStyle=cs2)

saveWorkbook(wb, file="E:/ff.xlsx")

库（xlsx）
wb对于期望的结果
cs2
已编辑，2。添加了列表all\u Colstyle
以传递到addDataFrame1
函数中的Colstyle
参数
在下面这个结果中，我想要粗体的最后一行，我应该怎么做
以下是修改后的代码：
library(xlsx)
wb <- createWorkbook(type='xlsx')
sheet <- xlsx::createSheet(wb, sheetName = "addDataFrame1")
data <- data.frame(mon=month.abb[1:10], day=1:10, year=2000:2009,
               date=seq(as.Date("1999-01-01"), by="1 year", length.out=10),
               bool=c(TRUE, FALSE), log=log(1:10),
               rnorm=10000*rnorm(10),
               datetime=seq(as.POSIXct("2011-11-06 00:00:00", tz="GMT"), by="1 hour",
                            length.out=10))
cs1 <- CellStyle(wb) + Font(wb, isItalic=TRUE)+Fill(foregroundColor = "lightblue",backgroundColor = "lightblue", pattern = "SOLID_FOREGROUND")
cs2 <- CellStyle(wb) + Border(color="black", position=c("BOTTOM", "LEFT","TOP","RIGHT"), pen=c("BORDER_THIN", "BORDER_THIN","BORDER_THIN","BORDER_THIN"))

all_Colstyle<- rep(list(cs2), dim(data)[2]) 
names(all_Colstyle) <- seq(1, dim(data)[2], by = 1)

addDataFrame(data, sheet,col.names = TRUE, row.names = FALSE, startRow = 2,startColumn = 1,colnamesStyle = cs1, rownamesStyle = cs2, colStyle=cs2)

saveWorkbook(wb, file="E:/ff.xlsx")

库（xlsx）
wb