【发布时间】：2020-11-18 13:36:38
【问题描述】：
我想从这里合并（cbind 或类似的）一些flextable 对象：
对此：
设置：
library(tidyverse)
library(flextable)
model1 <- data.frame("variable" = c(letters[1:3]),
"coeff" = c(20.3, 12.2, 10.1),
"ci" = c("19-20", "10-14", "10-11"))
model2 <- data.frame("variable" = c(letters[1:4]),
"coeff" = c(17, 10.1, 189, 200),
"ci" = c("12-20", "0.1-1.2", "100-200", "150-250"))
model3 <- data.frame("variable" = c(letters[1:5]),
"coeff" = c(1:5),
"ci" = c("1-3", "0.1-2.2", "2-4", "3-6", "2-9"))
t1 <- flextable(model1) %>%
add_header_row(values = c("", "model 1", "model 1"), top = T) %>% merge_at(i = 1:1, j = 2:3, part = "header")
t2 <- flextable(model2) %>%
add_header_row(values = c("", "model 2", "model 2"), top = T) %>% merge_at(i = 1:1, j = 2:3, part = "header")
t3 <- flextable(model3) %>%
add_header_row(values = c("", "model 3", "model 3"), top = T) %>% merge_at(i = 1:1, j = 2:3, part = "header")
我不确定如何有效地合并这些，我可以使数据集大小相同，这样我至少可以使用cbind，但这意味着删除和重新排序具有相同名称的列会很麻烦：
model1[nrow(model1) + (nrow(model3) - nrow(model1)), ] <- NA
model2[nrow(model2) + (nrow(model3) - nrow(model2)), ] <- NA
df_bind <- cbind(model1, model2, model3)
df_bind
# variable coeff ci variable coeff ci variable coeff ci
# 1 a 20.3 19-20 a 17.0 12-20 a 1 1-3
# 2 b 12.2 10-14 b 10.1 0.1-1.2 b 2 0.1-2.2
# 3 c 10.1 10-11 c 189.0 100-200 c 3 2-4
# 4 <NA> NA <NA> d 200.0 150-250 d 4 3-6
# 5 <NA> NA <NA> <NA> NA <NA> e 5 2-9
那我想用flextable命令：
flextable(df_bind)
#Error in flextable(df_bind) : duplicated col_keys
这不起作用，因为它们具有相同的列名。
我能想到的唯一方法是重命名每个数据框列（例如，重命名为 variable1、variable2、variable3 等），然后合并，然后使用 add_header_row 重命名回原始名称，但是这是非常低效的。
有没有更简单的解决方法？
谢谢
编辑
我似乎无法复制@Ben 解决方案。当我跑步时：
bind_rows(list(model_1 = model1, model_2 = model2, model_3 = model3), .id = 'model') %>%
pivot_wider(id_cols = variable, names_from = model, values_from = c(coeff, ci)) %>%
select(variable, coeff_model_1, ci_model_1,
coeff_model_2, ci_model_2, coeff_model_3, ci_model_3) %>%
flextable(col_keys = my_header$col_keys)
我得到以下看起来不错的东西：
然后当我添加接下来的两行时：
bind_rows(list(model_1 = model1, model_2 = model2, model_3 = model3), .id = 'model') %>%
pivot_wider(id_cols = variable, names_from = model, values_from = c(coeff, ci)) %>%
select(variable, coeff_model_1, ci_model_1,
coeff_model_2, ci_model_2, coeff_model_3, ci_model_3) %>%
flextable(col_keys = my_header$col_keys) %>%
set_header_df(mapping = my_header, key = "col_keys") %>%
theme_booktabs()
然后
bind_rows(list(model_1 = model1, model_2 = model2, model_3 = model3), .id = 'model') %>%
pivot_wider(id_cols = variable, names_from = model, values_from = c(coeff, ci)) %>%
select(variable, coeff_model_1, ci_model_1,
coeff_model_2, ci_model_2, coeff_model_3, ci_model_3) %>%
flextable(col_keys = my_header$col_keys) %>%
set_header_df(mapping = my_header, key = "col_keys") %>%
theme_booktabs() %>%
merge_v(part = "header") %>%
merge_h(part = "header")
最后
bind_rows(list(model_1 = model1, model_2 = model2, model_3 = model3), .id = 'model') %>%
pivot_wider(id_cols = variable, names_from = model, values_from = c(coeff, ci)) %>%
select(variable, coeff_model_1, ci_model_1,
coeff_model_2, ci_model_2, coeff_model_3, ci_model_3) %>%
flextable(col_keys = my_header$col_keys) %>%
set_header_df(mapping = my_header, key = "col_keys") %>%
theme_booktabs() %>%
merge_v(part = "header") %>%
merge_h(part = "header") %>%
align(align = "center", part = "all") %>%
colformat_num(na_str = "")
R version 3.6.3 (2020-02-29)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)
Matrix products: default
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] flextable_0.5.11 forcats_0.5.0 stringr_1.4.0 dplyr_1.0.2 purrr_0.3.4 readr_1.3.1 tidyr_1.1.2 tibble_3.0.3
[9] ggplot2_3.3.2 tidyverse_1.3.0
loaded via a namespace (and not attached):
[1] Rcpp_1.0.3 lubridate_1.7.9 lattice_0.20-38 assertthat_0.2.1 digest_0.6.25 utf8_1.1.4 R6_2.4.1 cellranger_1.1.0
[9] backports_1.1.5 reprex_0.3.0 evaluate_0.14 httr_1.4.1 pillar_1.4.3 gdtools_0.2.1 rlang_0.4.8 readxl_1.3.1
[17] uuid_0.1-4 rstudioapi_0.11 data.table_1.12.8 rmarkdown_2.1 munsell_0.5.0 tinytex_0.20 broom_0.5.5 compiler_3.6.3
[25] modelr_0.1.6 xfun_0.12 pkgconfig_2.0.3 systemfonts_0.1.1 base64enc_0.1-3 htmltools_0.4.0 tidyselect_1.1.0 fansi_0.4.1
[33] crayon_1.3.4 dbplyr_1.4.2 withr_2.1.2 grid_3.6.3 nlme_3.1-144 jsonlite_1.6.1 gtable_0.3.0 lifecycle_0.2.0
[41] DBI_1.1.0 magrittr_1.5 scales_1.1.0 zip_2.1.1 cli_2.0.2 stringi_1.4.6 fs_1.3.2 xml2_1.2.5
[49] ellipsis_0.3.0 generics_0.0.2 vctrs_0.3.5 tools_3.6.3 glue_1.4.2 officer_0.3.14 hms_0.5.3 yaml_2.2.1
[57] colorspace_1.4-1 rvest_0.3.5 knitr_1.28 haven_2.2.0
我看不出sessionInfo 有什么不同，除了R 的版本。我也将officer 更新为officer_0.3.14 版本，但没有任何区别。 set_header_df 和 colformat_num 似乎工作不正常。
有什么想法吗？
【问题讨论】：
标签： r dataframe merge flextable