r - 使用 group_rows 与 kableExtra 进行列对齐

Question

我正在使用 Rmarkdown 生成频率表的 PDF。运行后生成复杂的频率表freq来自questionr并使用 group_rows 添加行分组导致第一组最后一行出现对齐问题。此处可重现的示例:

---
output:
   pdf_document:
      latex_engine: xelatex
      fig_caption: true
---
```{r}
library(haven)
library(questionr)
library(dplyr)
library(magrittr)
library(knitr)
library(kableExtra)

# Build some data
x <- rep(c(1,0),times=50)
y <- c(rep(1,times=25),rep(0,times=75))
z <- c(rep(1,times=75),rep(0,times=25))

# Function to run frequencies on several variables at a time
MassFreq <- function(...){
  step1 <- list(...) # Wrap items into a list
  step2 <- lapply(step1,freq,total=TRUE) # run frequencies on all items
  step3 <- bind_rows(step2) # collapse list results into single df
  Response <- unlist(lapply(step2,row.names),recursive=FALSE) # Get row names from frequencies
  step4 <- cbind(Response,step3) #Stick row names at front of the dataframe
}

# Run function - returns a data frame object
test <- MassFreq(x,y,z)

# Build table
test %>%
  kable(format="latex", booktabs = TRUE, row.names=FALSE) %>%
  group_rows("Group 1",1,3) %>%
  group_rows("Group 2",4,6) %>%
  group_rows("Group 3",7,9)
```

编织时给我这个:

第一个“Total”文本是右对齐的，但其他一切都很好。添加align=('lrrr')在 kable line 不执行任何操作，并且 align=('crrr')有点乱。使用 group_rows 的索引方法产生相同的结果。当省略group_rows时命令，第一列中的所有内容都是左对齐的并且看起来不错。我的预感是kableExtra与 questionr 配合得不好因为“总计”行是在运行 questionr::freq 时创建的.

Answer 1

这是 kableExtra 当前 CRAN 版本 0.5.2 中的一个错误。它已在开发版本中修复。我将在下周发布 CRAN。