合并公共列后如何在 r 中加粗/保留度量名称

Answer 1

这是tidyverse flextable 解决方案：

1. 绑定两个 tibbles 后，我们使用 coalesce 创建 Variables 列。

2. 我们按 2 行分组，并使用 select 将 tibble 调整为形状

3. 我们使用group_modify 在每个组的首位添加一行

4. 使用case_when 语句，我们硬编码名称DoB 和Education。

5. 下一部分是使用flextable 获取粗体列名和行名。

   library(tidyverse)
   library(flextable)
   
   bind_rows(tibble1, tibble2) %>% 
     mutate(Variables = coalesce(DoB, Education)) %>% 
     group_by(group =as.integer(gl(n(),2,n()))) %>% 
     select(Variables, Bob, Kevin, Stewart, group) %>% 
     group_modify(~ add_row(.x,.before=0)) %>% 
     mutate(Variables = case_when(is.na(Variables) & group == 1 ~ "DoB",
                                  is.na(Variables) & group == 2 ~ "Education", 
                                  TRUE ~ Variables)) %>% 
     ungroup() %>% 
     select(-group) %>% 
     flextable() %>% 
     bold(bold = TRUE, part = "header") %>% 
     bold(i = ~ Variables %in% c("DoB", "Education"), bold = TRUE)