0

我有一个这样的数据表：

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", style="italic")),
    locations = cells_body(columns = c("Var3","Var5","Var7","Var9","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不支持它，那么存在哪些生成表的替代方法允许导出为元文件？
4

0 回答 0