RMD代码循环块中图表尺寸无法动态适配的技术求助

核心思路 #

放弃全局修改knitr::opts_chunk的方式，直接在打印每个图表对象时，根据当前变量的类别数量计算并指定专属宽高，确保所有图表的条形物理大小一致。

具体实现步骤 #

1. 先定义基准尺寸（对应4个类别的标准图表）：
   • 基准宽度base_width = 12
   • 基准高度base_height = 6
   • 每行最多显示类别数max_per_row = 4
2. 在循环中根据当前变量的类别数data_segments，计算当前图表的宽高：
   • 宽度：按类别占比缩放，即current_width = base_width * (data_segments / max_per_row)
   • 行数：current_rows = ceiling(data_segments / max_per_row)
   • 高度：按行数翻倍，即current_height = base_height * current_rows
3. 打印图表时传入计算好的宽高参数

修改后的代码 #

{r  echo=FALSE, results="asis", out.width="100%"}
# 定义基准尺寸参数
base_width <- 12    # 4个类别时的标准宽度
base_height <- 6    # 4个类别时的标准高度
max_per_row <- 4    # 每行最多显示的类别数

section_number <- 3

i = 1 ## for testing
while (i <= length(target_var_list)) {
  
  target_var       <- target_var_list[i]
  data_segments    <- data_segments(wrangled_devices, target_var)
  
  # 生成图表数据和对象
  exposure_chart_data <- monkeyr::get_exposure_chart_data(wrangled_obs, wrangled_devices, target_var)
  exposure_plot       <- monkeyr::get_exposure_plot(exposure_chart_data, target_var)
  
  # 计算当前图表的宽高
  current_width <- base_width * (data_segments / max_per_row)
  current_rows <- ceiling(data_segments / max_per_row)
  current_height <- base_height * current_rows
  
  # 打印图表并指定尺寸
  print(exposure_plot, width = current_width, height = current_height)
  
  section_number <- section_number + 1
  cat("\n\n\n")
  i <- i + 1
}

原方法无效原因 #

• knitr::opts_chunk$set是全局配置，在同一代码块的循环中修改只会对后续所有输出生效，无法为单个图表单独设置；
• 直接在print中指定图表宽高，会让knitr为每个图表生成独立的尺寸配置，完全适配当前类别的数量需求。

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