r - 如何在 R 中导出 HTML 表格并控制线条边框？

Question

R 中是否有任何函数允许将 HTML 表作为 R Markdown 或相关编织文档的一部分导出并允许对表线边框进行详细控制？

例如，想象一个这样的矩阵:

x <- matrix(c("", "M", "F", "Good", 
"23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)

什么命令会输出具有以下功能的正确 HTML 表格:

       --------
       M     F
---------------
 Good  23    17
---------------
 Bad   23    4
---------------

Answer 1

您可以在名为 pander 的繁重开发中尝试我的非常年轻的包。它试图在 pandoc 中打印 R 对象 Markdown 格式。

懒惰的例子:

> x <- matrix(c("", "M", "F", "Good", "23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)
> pandoc(x)

+------+------+------+
|      | M    | F    |
+------+------+------+
| Good | 23   | 17   |
+------+------+------+
| Bad  | 23   | 4    |
+------+------+------+

我只是在处理一些导致其他表语法的函数，如“简单表”或“多行表”(参见 Pandoc 的自述文件)。

PS:
您还可以使用(尚未记录) Pandoc 轻松将此表格导出为 HTML(除了其他格式，如 docx、odt 等)。引用类如:

> myReport <- Pandoc$new()
> myReport$add(x)
> myReport

Anonymous's report
==================
 written by *Anonymous* at *Sun May 27 21:04:22 2012*

  This report holds 1 block(s). 

---

+------+------+------+
|      | M    | F    |
+------+------+------+
| Good | 23   | 17   |
+------+------+------+
| Bad  | 23   | 4    |
+------+------+------+


---

Proc. time:  0.009 seconds. 

> myReport$format <- 'html'
> myReport$export()

Exported to */tmp/pander-4e9c12ff63a6.[md|html]* under 0.031 seconds.

附言第二:你也可以 brew (如 sweave)一个带有 Pandoc.brew 的文本文档这将自动转换您的 <%=...%>从内部 R 对象到 Pandoc Markdown 格式的标签。简短示例(当然这也适用于文件输入，现在我只是 brew 一个 R 字符向量):

> t <- '# Title
+ 
+ A nice matrix:
+ 
+ <%=matrix(c("", "M", "F", "Good", "23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)%>
+ 
+ Bye-bye!'
> 
> Pandoc.brew(text=t)
# Title

A nice matrix:

+------+------+------+
|      | M    | F    |
+------+------+------+
| Good | 23   | 17   |
+------+------+------+
| Bad  | 23   | 4    |
+------+------+------+

Bye-bye!