使用openxlsx2和mschart在独立工作表创建条形图时Group参数失效

问题分析 #

核心问题在于：通过wb_data从工作簿读取数据创建条形图时，ms_barchart的group参数无法正常生成分组效果；同时没有直接方法移动已添加的图表到独立工作表。

解决方案：直接引用工作簿数据区域创建图表 #

无需将工作簿数据读取为本地数据框，直接指定图表数据源为工作簿内的单元格区域，既能保证分组效果，又能将图表直接添加到独立工作表。

修改后的代码示例 #

library(openxlsx2)
library(mschart)

# 创建工作簿并添加工作表
wbTest <- wb_workbook() %>% 
  wb_add_worksheet("数据工作表") %>% 
  wb_add_worksheet("独立图表工作表") %>% 
  wb_add_data(x = browser_data, sheet = "数据工作表", dims = "A1")

# 基于工作簿数据区域创建分组条形图，并绑定数据源到指定工作表
chart <- ms_barchart(
  data = wb_data(wbTest, sheet = "数据工作表", dims = "A1:C19"),
  x = "browser",
  y = "value",
  group = "serie"
) %>% 
  ms_data_source(
    sheet = "数据工作表"
  )

# 将图表添加到独立工作表
wbTest <- wbTest %>% 
  wb_add_mschart(sheet = "独立图表工作表", graph = chart)

# 保存工作簿
wb_save(wbTest, file = "独立图表测试.xlsx", overwrite = TRUE)

关键说明 #

• 直接用wb_data返回的工作簿数据对象作为ms_barchart的数据源，再通过ms_data_source明确指定数据所在工作表，Excel会正确识别分组字段，生成分组条形图。
• 跳过“读取数据到本地数据框”的步骤，避免数据源引用丢失导致分组失效。
• 通过wb_add_mschart直接指定目标工作表，实现图表与数据分表存放，无需后续移动图表操作。

内容的提问来源于stack exchange，提问作者AndyDudley