使用group_rows

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不会做任何事情，align=('crrr')有点混乱。使用group_rows的索引方法会产生相同的结果。省略group_rows命令时，第一列中的所有内容都是左对齐的，看起来很好。我的预感是kableExtra与questionr的效果不佳，因为在运行questionr::freq时会创建“总计”行。

Answer 1

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