在 R 中以格式化表创建的导出表

Posted 2023-05-07

【中文标题】在 R 中以格式化表创建的导出表

【英文标题】：Export table created in formattable in R

【发布时间】：2021-11-19 22:30:48

【问题描述】：

我正在绘制如下表。有没有办法拯救它？我不能只导出它，因为它只导出部分图像。

test1 %>% 
  group_by(Name) %>%
  summarise("Weekly_trend" = spk_chr(Total))  %>%
  left_join(data) %>%
  formattable() %>%
  as.datatable() %>%
  spk_add_deps()

【问题讨论】：

这能回答你的问题吗？ Command for exporting/saving table made with Formattable package in R

【参考方案1】：

自从我回答了你的最后一个问题，我有了更多的背景知识。由于某种原因，您制作的表格似乎不想使用above提到的方法导出。

但是，您可以使用以下代码导出表格并将其另存为图像。首先，表格被保存为 htmlwidget。如果需要，您可以打开获取输出的输出 .html 文件并查看表格。然后webshot 会为桌子拍照并保存为图片。

library(htmlwidgets)
library(webshot)

test1 %>% 
  group_by(Name) %>%
  summarise("Weekly_trend" = spk_chr(Total)) %>%
  formattable() %>%
  as.datatable(options = list(pageLength = 30)) %>%
  spk_add_deps() -> w

htmlwidgets::saveWidget(w, "table.html", selfcontained = TRUE)

webshot::webshot(url = "table.html", file = "table.png", 
                 vwidth = 1000, vheight = 275)