Kable Extra和Rmardown的美学

Question

我正在以r为样式的以下代码以样式的表格，

library(kableExtra)
library(knitr)

item<-c("question1.NATURALES" ,   "question2.NATURALES"   , "question3.NATURALES"   , "question4.NATURALES",   
  "question5.NATURALES"  ,  "question6.NATURALES"  ,  "question7.NATURALES"  ,  "question8.NATURALES"   ,
  "question9.NATURALES"    ,"question10.NATURALES")

key<-c("C", "A", "A", "C", "B", "D", "B", "A", "D", "C" )
A<-c(0 ,3 ,0, 1, 0, 0 ,0 ,0, 2 ,0)
B<-c(0, 0, 1 ,0, 3, 0, 3, 1, 0, 1 )


fa<-data.frame("item"=item,"key"=key, "A"=A,"B"=B)

fa %>%
  kbl(escape = FALSE,booktabs = TRUE,longtable=TRUE) %>%
  kable_styling(fixed_thead = T,repeat_header_text = "continuaci\\'on",
        repeat_header_continued="contin\\'ua en la siguiente p\\'agina") %>%
  kable_paper(c("striped","condensed","scale_down","repeat_header"), 
              full_width = FALSE)


tmp<- data.frame(t(
  data.frame(t(select(fa, -item, -key))) %>% 
    mutate_all(function(i) cell_spec(i, color = ifelse(i == max(i), "green", "red")))
), row.names = NULL)

cbind(fa[1],fa[ 2], tmp) %>%
  kbl(escape = FALSE,booktabs = TRUE,longtable=TRUE) %>%
  kable_styling(fixed_thead = T,repeat_header_text = "continuaci\\'on",
        repeat_header_continued="contin\\'ua en la siguiente p\\'agina") %>%
  kable_paper(c("striped","condensed","scale_down","repeat_header"), 
              full_width = FALSE)

但是当打印pdf时，结果如下

它不会显示样式化或显示页面的单词更改，但如果我在控制台我得到以下

我想知道发生了什么，因为在PDF中，它以不太美学的方式向我展示了我。

当然，如果您还有其他建议，这是欢迎的。

Answer 1

我尝试使用rmarkDown打印您的桌子。我发现我们可以通过使用latex_options =“条纹”在kable_styling（）函数中获得PDF中的条纹样式。

library(tidyverse)
library(kableExtra)
library(knitr)

item<-c("question1.NATURALES" ,   "question2.NATURALES"   , "question3.NATURALES"   , "question4.NATURALES",   
  "question5.NATURALES"  ,  "question6.NATURALES"  ,  "question7.NATURALES"  ,  "question8.NATURALES"   ,
  "question9.NATURALES"    ,"question10.NATURALES")

key<-c("C", "A", "A", "C", "B", "D", "B", "A", "D", "C" )
A<-c(0 ,3 ,0, 1, 0, 0 ,0 ,0, 2 ,0)
B<-c(0, 0, 1 ,0, 3, 0, 3, 1, 0, 1 )


fa<-data.frame("item"=item,"key"=key, "A"=A,"B"=B)

fa %>%
  kbl(escape = FALSE,booktabs = TRUE,longtable=TRUE) %>%
  kable_styling(fixed_thead = T,
        repeat_header_text = "continuaci\\'on",
        repeat_header_continued="contin\\'ua en la siguiente p\\'agina",
        latex_options = "striped") %>%
  kable_paper(c("striped","condensed","scale_down","repeat_header"), 
              full_width = FALSE)


tmp<- data.frame(t(
  data.frame(t(select(fa, -item, -key))) %>% 
    mutate_all(function(i) cell_spec(i, color = ifelse(i == max(i), "green", "red")))
), row.names = NULL)

cbind(fa[1],fa[ 2], tmp) %>%
  kbl(escape = FALSE,booktabs = TRUE,longtable=TRUE) %>%
  kable_styling(fixed_thead = T,
        repeat_header_text = "continuaci\\'on",
        repeat_header_continued="contin\\'ua en la siguiente p\\'agina", 
        latex_options = "striped") %>%
  kable_paper(c("striped","condensed","scale_down","repeat_header"), 
              full_width = FALSE)

该代码在PDF中的以下两个表中产生：