R-Markdown:修改PDF的默认表输出

Question

这真的是我，变得非常困惑，在任何地方都找不到任何关于这方面的文档。

以下内容适用于Rmd，因为它在Rstudio中使用。

下面的表格是这样的：

Table Header  | Second Header
------------- | -------------
Table Cell    | Cell 2
Cell 3        | Cell 4 

当它编译成latex (或pdf)时，输出是这样的

​

​

但我更希望它是这样的：

​

​

或者像这样

​

​

即包括垂直线或水平线。

现在，当我将它编译成html时，我可以通过包含我自己的css文件来修复一些样式。有没有我可以用来处理LaTEX输出的东西？

Answer 1

我不知道单独使用markdown如何做到这一点，它可能涉及到创建某种类型的模板。我从来没有追求过这样的解决方案，所以我真的不能说这是不可能的。我一直在寻找其他的解决方案，可以为我生成必要的LaTeX代码。下面的代码是一个工作的RMD，将编织到PDF和HTML文件。

---
title: "Untitled"
output:
  pdf_document: null
  html_document: null
header-includes:
- \usepackage{amssymb}
- \usepackage{arydshln}
- \usepackage{caption}
- \usepackage{graphicx}
- \usepackage{hhline}
- \usepackage{longtable}
- \usepackage{multirow}
- \usepackage[dvipsnames,table]{xcolor}
---

```{r}

库(Pixiedust)

选项(pixie_float= FALSE)

DF <- data.frame(table_header =c(“单元格”，“单元格3")，

             second_header = c("Cell 2", "Cell 4"),

             stringsAsFactors = FALSE)

Base <-

粉尘(DF) %>%

medley_bw() %>%模拟标准标签表的默认边框

Sprinkle_colnames(“表头”，“第二头”) %>%

sprinkle_table(pad = 3) #超文本标记语言表格填充

在列之间使用垂直线打印表

基础%>%

sprinkle_table(cols = 1，

             border = "right")

在行之间使用水平线打印表

基础%>%

sprinkle(行数= 1，

       border = "bottom")

生成的表具有以下外观

​

​

​

​

Answer 2

另一种可能性是：

library(huxtable)
ht <- hux(c('Table Header', 'Table Cell', 'Cell 3'), c('Second Header', 'Cell 2' , 'Cell 4'))
top_border(ht) <- 1
bold(ht)[1,] <- TRUE
right_border(ht)[,1] <- TRUE