Formattable自定义格式表格导出PDF/SVG丢失样式与图标解决方案求助

方案1：用webshot2批量导出矢量SVG（最适配InDesign需求） #

该方案完全兼容你现有formattable代码逻辑，导出的文件可完整保留自定义颜色、箭头图标等所有样式，矢量格式支持导入InDesign后任意缩放无模糊，可批量处理150个表格，操作门槛极低。

前置依赖安装 #

# 安装所需工具包
install.packages(c("webshot2", "chromote", "formattable"))
# webshot2自动调用本地已安装的Chrome/Edge浏览器，无需额外配置环境

实现代码 #

沿用你已有的样式定义和数据即可：

# 你现有的百分比格式化函数无需修改
pct_formatter <- formatter("span", 
                           style = x ~ style( 
                             color = 
                               ifelse(
                                 x > 0, "#39870c", 
                                 ifelse(
                                   x < 0, "#d52b1e", 
                                   "black")
                               )
                           ), x ~ icontext(ifelse(x>0, "arrow-up", "arrow-down"), x)
)

# 把你提供的数据集赋值给df即可
df <- structure(...)

生成表格并导出：

library(formattable)
library(webshot2)

# 生成带样式的formattable表格，按你的需求指定应用格式化规则的列
ft <- formattable(df, list(
  pct_change.M = pct_formatter,
  pct_change.Y = pct_formatter,
  pct_change.Y2 = pct_formatter,
  pct_change.SY = pct_formatter,
  pct_change.SY2 = pct_formatter
))

# 转为完整HTML结构，引入本地提前下载好的bootstrap3.x css文件，避免箭头图标显示异常，全程可离线运行
html_content <- as.character(ft)
full_html <- paste0('
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" href="替换为你本地bootstrap.min.css的文件路径">
</head>
<body>
', html_content, '
</body>
</html>
')

# 临时存储HTML文件
writeLines(full_html, "temp_table.html")

# 导出为SVG，可自定义宽高参数适配你的尺寸需求
webshot("temp_table.html", "table_output.svg", 
        vwidth = 1200, # 自定义页面宽度
        vheight = 800, # 自定义页面高度
        zoom = 1)

如果需要直接导出PDF格式，只需把输出文件名后缀改为.pdf即可，无需其他调整。批量处理150个表格只需将上述逻辑套入循环，依次修改数据源和输出文件名即可。
导出的SVG/PDF文件所有样式完整，用Adobe Illustrator打开不会出现[X]占位框，可直接导入InDesign拼接使用。

方案2：极简RMarkdown导出PDF #

如果仅需要PDF格式，无需额外编辑矢量元素，可以用仅含表格输出的极简Rmd模板实现，支持完全自定义页面尺寸、边距，不会生成多余的报告内容：

Rmd模板内容（保存为table_export.Rmd） #

---
output: pdf_document
geometry: "paperwidth=20cm, paperheight=15cm, margin=1cm" # 按需修改页面参数
---
```{r echo=FALSE, warning=FALSE}
library(formattable)
library(knitr)
# 此处直接放生成formattable对象的代码
ft

运行`rmarkdown::render("table_export.Rmd")`即可导出样式完整的PDF文件，批量操作只需循环修改数据源即可。

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