如何使用kableExtra实现表格文本居中对齐？

嘿，我来帮你搞定这个问题！其实有两种简单好用的方式可以实现表格文本居中，具体如下：

方法一：直接在kbl()中指定全局对齐 #

你可以在kbl()函数里用align参数统一设置所有列的对齐方式，"c"代表居中对齐。要是有多列的话，每列对应一个字符就行（比如两列就写"cc"），也可以直接写"c"让所有列自动居中。修改后的代码如下：

Mod <- c("1","1b","2","2b","3 ","3b")
Lag <- c("1","1","1","1","1","1")
dt <- data.frame(cbind(Mod,Lag))
dt %>% 
  kbl(align = "cc") %>%  # 对两列都设置居中对齐
  kable_classic(full_width = T, html_font = "Cambria")

方法二：用column_spec()针对特定列设置 #

如果只想让部分列居中，column_spec()会更灵活，你可以指定列的索引或者列名，然后设置align = "c"。比如要让第1到2列都居中，代码这样写：

Mod <- c("1","1b","2","2b","3 ","3b")
Lag <- c("1","1","1","1","1","1")
dt <- data.frame(cbind(Mod,Lag))
dt %>% 
  kbl() %>% 
  kable_classic(full_width = T, html_font = "Cambria") %>%
  column_spec(1:2, align = "c")  # 指定第1、2列居中

内容的提问来源于stack exchange，提问作者Joe94