如何在Quarto转Word时调整tinytable表格内图片大小？

我平时常用tinytable做带可视化的表格，但渲染成Word时总会遇到表格里的图片（比如直方图）显示过大的问题，折腾了几种方法总算解决了，分享给你：

问题复现 #

用这段代码生成带直方图的表格，渲染到Word后图片尺寸超标：

library(tinytable)
options(tinytable_tt_digits = 3)

plot_data <- list(mtcars$mpg, mtcars$hp, mtcars$qsec)

dat <- data.frame(
  Variables = c("mpg", "hp", "qsec"), 
  Histogram = "",
  Density = "",
  Bar = "",
  Line = ""
)

tt(dat) |>
  plot_tt(j = 2, fun = "histogram", data = plot_data, height = 0.2) |>
  style_tt(j = 2:5, align = "l")

Word显示效果：

可行解决方案 #

1. 调整tinytable全局绘图参数+plot_tt尺寸 #

tinytable默认的绘图分辨率很高，直接渲染到Word会被放大。先调低全局分辨率，再配合plot_tt的width和height参数控制：

# 把绘图分辨率设为Word适配的72dpi
options(tinytable_plot_res = 72)

tt(dat) |>
  plot_tt(j = 2, fun = "histogram", data = plot_data, height = 0.2, width = 1) |>
  style_tt(j = 2:5, align = "l")

这里的width和height单位是英寸，可根据需要调整。

2. 预先生成指定尺寸的图片再插入 #

如果上面的方法不够精准，可以手动生成图片再用image_tt插入：

library(ggplot2)

# 批量生成指定尺寸的直方图
for (i in 1:3) {
  p <- ggplot(data.frame(x = plot_data[[i]]), aes(x)) +
    geom_histogram(bins = 8) +
    theme_minimal() +
    theme(
      axis.text = element_text(size = 6),
      axis.title = element_blank(),
      plot.margin = margin(0, 0, 0, 0, "cm")
    )
  ggsave(
    paste0("hist_", i, ".png"),
    p,
    width = 1, height = 0.2,
    dpi = 72, bg = "white"
  )
}

# 插入预生成的图片到表格
tt(dat) |>
  image_tt(j = 2, path = paste0("hist_", 1:3, ".png")) |>
  style_tt(j = 2:5, align = "l")

3. 在Quarto YAML中统一控制表格图片尺寸 #

直接在Quarto文档的头部设置Word输出时表格内图片的宽度：

---
title: "带可视化的表格"
format:
  docx:
    table-image-width: 1in # 所有表格内图片统一设为1英寸宽
---

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