r - 在 pdf 输出中的 kable 表中创建水平线

Question

我正在使用 rmarkdown 创建 pdf 文档，但无法获得每个 block 的水平线分隔。代码如下

---
title: "Some title"
author: Arvin
date: "October 18, 2016"
output: pdf_document
fig_caption: yes
---


```{r script1, echo = FALSE}
df1 <- data.frame(A1 = c("Sometext", "", "", "B1", "Sometext", ""), 
                  A2 =  c("a", "b", "c", "B2", "d", "e" ),
                  check.names = FALSE)
knitr::kable(df1, caption = "Summary Table")           
```

我试过了

```{r script1, echo = FALSE}
df1 <- data.frame(A1 = c("Sometext", "", "", "-------", "B1", "------", "Sometext",  ""), 
                  A2 =  c("a", "b", "c", "-------", "B2", "-------", "d" "e" ),
                  check.names = FALSE)
knitr::kable(df1, caption = "Summary Table")           
```

如何创建分隔每个 block 的水平线？

Answer 1

我建议使用R包xtable，它在高级功能和表格样式方面非常强大。对于你的情况我会写:

---
title: "Some title"
author: Arvin
date: "October 18, 2016"
output: pdf_document
fig_caption: yes
---


```{r script1, echo = FALSE, results='asis'}
df1 <- data.frame(A1 = c("Sometext", "", "", "B1", "Sometext", ""), 
                  A2 =  c("a", "b", "c", "B2", "d", "e" ),
                  check.names = FALSE)

print(xtable::xtable(df1), hline.after = c(-1,0,3,6), comment=F)
```