r - 允许绑定(bind)表中的重复名称

Question

更新为什么我改变了我的投票。

此代码显示了表格，但 R 不编织 pdf。

all_jt %>%
kbl(longtable = T, booktabs = T, 
      caption = "table") %>% 
  remove_column(7) %>%
  add_header_above(c(" " = 2, "Year 1" = 4, "Year 2" = 4)) %>% 
  kable_styling(latex_options = c("repeat_header")) 

Quitting from lines 13-37 (test_table.Rmd) 
Error in remove_column(., 7) : 
  Removing columns was not implemented for latex kables yet

切换到 select(-7)，如此处 Remove_Column from a kable table which will be output as latex/pdf不起作用，因为 R 不喜欢重复的列名。

我在下面有两个方差分析表，jt_1 和 jt_2，我想合并它们并只为模型项保留 1 列。当我删除重复的列时，R 将 .1 添加到列的 7、8、9 和 10 名称的尾部。

library(emmeans)
library(stringr)

warp.lm <- lm(breaks ~ wool * tension, data = warpbreaks)

jt_1 <- print(joint_tests(warp.lm), export = T) %>% as.data.frame() 


jt_2 <- jt_1

all_jt <- cbind(jt_1, jt_2) %>% 
  setNames(gsub("summary.", "", colnames(.))) 

all_jt[,-6]%>% #to remove the duplicated column for model term
 data.frame(check.names = F) %>% 
kbl(longtable = T, booktabs = T, 
    caption = "table") %>% 
  add_header_above(c(" " = 2, "Year 1" = 4, "Year 2" = 4)) %>% 
  kable_styling(latex_options = c("repeat_header")) 

这是我需要什么的简要说明。

非常感谢。

Answer 1

您可以使用 kableExtra 中的 remove_column 函数来删除列而不是 all_jt[,-6] ，这使得列名唯一。

library(knitr)
library(kableExtra)

all_jt %>%
kbl(longtable = T, booktabs = T, 
      caption = "table") %>% 
  remove_column(7) %>%
  add_header_above(c(" " = 2, "Year 1" = 4, "Year 2" = 4)) %>% 
  kable_styling(latex_options = c("repeat_header"))