当前位置：首页 > news >正文

R语言高效数据处理-自定义EXCEL数据排版

news 来源：原创 2025/4/30 17:51:41

注：以下代码均为实际数据处理中的笔记摘录，所以很零散

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)

将就看吧，这一篇只是代表着我还在，所以可能用处不大，这一段时间都很煎熬！