如何更改 Stargazer HTML 表格宽度？答案

【问题标题】：How to change Stargazer HTML table width?如何更改 Stargazer HTML 表格宽度？
【发布时间】：2017-01-25 00:50:49
【问题描述】：

我真的很喜欢 stargazer 包使用的表格样式。这些表格使用 Knitr 和 Rstudio 在 pdf 中渲染得很好。但是，当我尝试将我的 .Rmd 编入一个 html 页面时，表格最终会挤在一起。块选项fig.width 没有帮助，观星器选项column.sep.width 也没有帮助。有什么方法可以改变表格的宽度，还是有其他工作流程可以在 html 中获得漂亮的汇总表？

可重现的例子：

{r test, results = "asis"}

stargazer::stargazer(attitude,
                 type = "html",
                 digits = 2,
                 summary.stat = c("mean","sd","median","min", "max"))

【问题讨论】：

您是否认为在列名周围添加受保护的空格 (&nbsp;) 是一种可接受的解决方案？
可能重复question（虽然没有解决方案）。
刚刚在this similar question发布了一个基于CSS的解决方案

标签： r knitr r-markdown stargazer

【解决方案1】：

我对@987654323@ 有很大的偏见，但无论如何我都会添加这个。 htmlTable，顾名思义，只是用来做表的，所以不包括stargazer的所有花里胡哨，但是这个函数有很多自定义输出的选项。因此，您可能需要做额外的工作才能获得需要放入表格的输出。

与其他答案类似，您可以使用 css 来操作表格的样式。例如，您可以将 css 传递给css.cell：

---
output: html_document
---

```{r test, results='asis', include=FALSE}
stargazer::stargazer(attitude,
                 type = "html",
                 digits = 2,
                 summary.stat = c("mean","sd","median","min", "max"))
```

```{r}
## apply a list of functions to a list or vector
f <- function(X, FUN, ...) {
  fn <- as.character(match.call()$FUN)[-1]
  out <- sapply(FUN, mapply, X, ...)
  setNames(as.data.frame(out), fn)
}

(out <- round(f(attitude, list(mean, sd, median, min, max)), 2))
```

```{r, results='asis'}
library('htmlTable')
htmlTable(out,  cgroup = 'Statistic', n.cgroup = 5, caption = 'Table 1: default')

htmlTable(out, cgroup = 'Statistic', n.cgroup = 5, caption = 'Table 1: padding',
          ## padding to cells: top side bottom
          css.cell = 'padding: 0px 10px 0px;')
```

以下表格用于侧面无内边距和额外内边距

【讨论】：

【解决方案2】：

在创建文件后尝试进入文件中的实际 HTML。将有一个table 标记，用于确定样式、宽度等。例如table标签为<table style="text-align:center">，手动设置宽度为<table style="text-align:center" width="3000">

【讨论】：