注:以下代码均为实际数据处理中的笔记摘录,所以很零散
1、自定义excel表数据输出格式、布局
在实际数据处理中为了提升效率,将Excel报表交付给需求方时减少手动调整的环节很有必要
#1.1设置表头格式
header_style <- createStyle(fontColour = '#FFFFFF', #字体颜色fgFill = '#2f4cc3',#单元格填充颜色halign = 'center', #单元格数据水平对齐valign = 'bottom',#单元格数据垂直对齐textDecoration = 'bold',#字体加粗border = 'TopBottomLeftRight')#单元格边框的设置
#1.2工作薄的多表数据添加及格式设置
工作薄中添加新的sheet表,当需要在同一个工作薄添加多个时可以直接赋予表格名称新增
addWorksheet(data_deal_main01,'data_deal_c01')#将数据写入工作薄,并附带格式(没有对整个表格设定格式的参数)
writeData(data_deal_main01, #工作薄名称'data_deal_c01',#sheet表名称 room_mon0110_deal,headerStyle=header_style,borders = openxlsx_getOp('borders','all'),#数据边框线覆盖范围borderStyle = openxlsx_getOp('borderStyle','thin'))#数据边框线格式
#同一个sheet中写入多个数据,多份数据要给定开始列,写入数据则不会覆盖已有数据
#createnameregion创建区域数据的名称,便于在同一个sheet中写入多份数据,
就像下面的数据输出示例
#设置表格列宽度
setColWidths(data_deal_main01,sheet='data_deal_c01',cols=1:5,widths =15,
)
#格式化表格数据
conditionalFormatting(wb,'data_deal_c01',cols=1:5,rows=1:nrow(data_deal_c01)+1,rule='>=0',style=sheet_style)
#数据写入
writeData(data_deal_main01, 'data_deal_test1', data_deal_c01,startCol=1)
writeData(data_deal_main01, 'data_deal_test1', data_deal_c02,startCol=7)#保存工作薄
saveWorkbook(data_deal_main01, 'date_week_deal.xlsx', overwrite = TRUE)
将就看吧,这一篇只是代表着我还在,所以可能用处不大,这一段时间都很煎熬!