如何解决R,如何将gt导出为图元文件
我有一个这样的数据表:
library(stringi)
library(tidyverse)
library(data.table)
MWE <-
data.table("Zone"=stri_rand_strings(9,10,pattern = "[A-Za-z0-9]")) %>%
.[,paste0("Var",2:11):= round(rnorm(9,2,4),1)]
从那我想输出一个漂亮的表。通过gt
软件包,我设法做了一些令人满意的事情,但是如果需要,我可以选择切换
library(gt)
MWE_Table <- gt(MWE)%>%
tab_spanner(label="PIB",columns = c(2:7))%>%
tab_spanner(label="IPC",columns = c(8:11))%>%
tab_style(
style = list(
cell_text(weight = "lighter",style="italic")),locations = cells_body(columns = c("Var3","Var5","Var7","Var9","Var11"))) %>%
tab_style(
style = list(
cell_text(weight = "normal","Var11"),rows = (Zone == "France"))) %>%
cols_label(Zone="",Var2=Annee1,Var3="(rev)",Var4=Annee2,Var5="(rev)",Var6="Cumul",Var7="(rev)",Var8=paste0(" ",Annee1),Var9="(rev)",Var10=Annee2,Var11="(rev)")%>%
cols_align(.,align = c("center"),columns = c(2:11)) %>%
tab_header(
title = md(paste("Title ")),subtitle = md("Subtitle")
)
我想导出为矢量图形,但我通常使用的图元文件选项未作为选项列出:
- 我可以做些什么添加此选项吗?
- 如果
gt
不支持它,那么存在哪种产生表的替代方案可以导出为图元文件?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。