在R flextable中，如何在列标题之间添加分隔符

问题描述

我有一个具有嵌套列标题的列联表，我需要帮助在列标题之间添加空间。有三种组织学，每个组织学分为三个阶段。我想在三个阶段的每个阶段之间休息一下。我走了这么远：

Cancer <- read.table("http://users.stat.ufl.edu/~aa/cat/data/Cancer.dat",header = TRUE,stringsAsFactors = TRUE)
library(dplyr)
library(tidyr)
cancerCountWide <- Cancer %>% 
  select(-risktime) %>% 
  pivot_wider(id = time,names_from = c(histology,stage),values_from=count) %>% 
  mutate(blank = " ") %>%
  mutate(blank2 = " ") %>%
  select(time,blank,`1_1`,`2_1`,`3_1`,blank2,everything())


my_header <- data.frame(
  col_keys = c("time","blank","1_1","2_1","3_1","1_2","2_2","3_2","1_3","2_3","3_3"),line2 = c("Follow-up","Histology",rep("I",3),rep("II",rep("III",3)),line3 = c("Follow-up","Disease Stage",c(1,2,rep(c(1,2))
)

library(flextable)
flextable(cancerCountWide) %>% 
  set_header_df(
    mapping = my_header,key = "col_keys"
  ) %>% 
  theme_booktabs() %>% 
  merge_v(part = "header") %>% 
  merge_h(part = "header") %>% 
  align(align = "center",part = "all") %>% 
  autofit() %>% 
  empty_blanks()

哪个让我靠近：

在空白列中添加不是很优雅，并且阶段下方的细线也不是很好。我认为必须有一种更好的方法来做到这一点。...

有人可以建议我如何在舞台组之间添加一些填充吗？我是刚接触flextable的人。因此，对于学习教程的建议也将不胜感激。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

flextable r r