我正在使用 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')有点混乱。使用 index 方法group_rows产生相同的结果。省略group_rows命令时，第一列中的所有内容都是左对齐的，看起来很好。我的预感是，这kableExtra不是很好玩，questionr因为“总计”行是在运行时创建的questionr::freq。