欢迎关注R语言数据分析指南
❝之前有段时间看到有读者讨论，如何将gt绘制的表格以pdf格式导出，由于此包给出的结果为html，以前小编的做法是通过浏览器保存为pdf格式，但是过于繁琐。本节来介绍一个新的方法，通过patchwork包内的wrap_table()函数来将其以pdf格式导出，并且还可自由拼图。更多详细内容可查看patchwork官方文档，作者有详细的介绍说明。
官方文档
❝https://patchwork.data-imaginist.com/reference/wrap_table.html
library(tidyverse)
install.packages("gt")
library(gt) # Version:0.11.1
install.packages("patchwork")
library(patchwork) # version: 1.3.0
install.packages("ragg")
library(ragg)
gtcars_8 <-
gtcars %>%
group_by(ctry_origin) %>%
slice_head(n = 2) %>%
ungroup() %>%
filter(ctry_origin != "United Kingdom")
p <- gtcars_8 %>%
group_by(ctry_origin) %>%
gt() %>%
tab_options(
table.border.top.color = "black",
table.border.top.width = px(2.5),
column_labels.border.bottom.color = "black",
column_labels.border.bottom.width=px(2.5),
table_body.hlines.color = "black",
table_body.hlines.width=px(1),
table.border.bottom.color = "black",
table.border.bottom.width = px(2.5))
plot <- wrap_table(p)
❝运行此段代码需要特别注意gt & patchwor包的版本号，需要与代码中的版本号一致，如此才能正常出图。
# 图片导出
ggsave(plot,file="table.pdf",width =10.36,height = 3.96,unit="in",dpi=300)
关注下方公众号下回更新不迷路
购买介绍
❝本节介绍到此结束，有需要学习R数据可视化的朋友欢迎到淘宝店铺：R语言数据分析指南，购买小编的R语言可视化文档(2024版)，购买将赠送2023年的绘图文档内容。目前此文档(2023+2024)已经更新上传200案例文档，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。
2024更新的绘图内容将同时包含数据+代码+注释文档+文档清单，2023无目录仅有数据文件夹，小编只分享案例文档，不额外回答问题，无答疑服务，零基础不推荐买。
案例特点
所选案例图均属于个性化分析图表完全适用于论文发表，内容异常丰富两年累计发布案例图200+，2024年6月起提供html版注释文档更加直观易学。文档累计上千人次购买拥有良好的社群交流体验。R代码结构清晰易懂，为防止中文乱码提供单独的注释文档
