如何在{xaringan}演示文稿中缩小{stargazer}表？

debugcn 发表于 Dev

生态经济

我正在做我的第一个Ninja Presentation，其中包括一张从幻灯片上滑下来的观星台（太长了）。有什么建议？

可复制的表格放在{xaringan}中。

library(tidyverse)
library(stargazer)
df<-tibble(y=sample(1:100,500,replace=TRUE),x=sample(1:5,500,replace=TRUE),x2=sample(1:3,500,replace=TRUE),x3=sample(1:15,500,replace=TRUE),x4=sample(LETTERS[1:5],500,replace=TRUE))
stargazer(lm(df$y~df$x+df$x2+df$x3+df$x4),type="html")

以及那些只想将其放入以下页面的html输出：

<table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
<tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
<tr><td style="text-align:left"></td><td>y</td></tr>
<tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">x</td><td>-1.175</td></tr>
<tr><td style="text-align:left"></td><td>(0.902)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">x2</td><td>-0.742</td></tr>
<tr><td style="text-align:left"></td><td>(1.580)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">x3</td><td>0.028</td></tr>
<tr><td style="text-align:left"></td><td>(0.309)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">x4B</td><td>0.660</td></tr>
<tr><td style="text-align:left"></td><td>(4.181)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">x4C</td><td>-2.830</td></tr>
<tr><td style="text-align:left"></td><td>(4.283)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">x4D</td><td>2.581</td></tr>
<tr><td style="text-align:left"></td><td>(4.221)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">x4E</td><td>1.637</td></tr>
<tr><td style="text-align:left"></td><td>(4.100)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">Constant</td><td>55.593<sup>***</sup></td></tr>
<tr><td style="text-align:left"></td><td>(5.977)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>500</td></tr>
<tr><td style="text-align:left">R<sup>2</sup></td><td>0.008</td></tr>
<tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>-0.006</td></tr>
<tr><td style="text-align:left">Residual Std. Error</td><td>29.048 (df = 492)</td></tr>
<tr><td style="text-align:left">F Statistic</td><td>0.575 (df = 7; 492)</td></tr>
<tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
</table>

嘛

有很多方法可以减小HTML表的大小。我在这里建议两件事：

设置single.row = T在stargazer::stargazer()。这样就可以在同一行上获得系数估计值和相应的标准误差，因此节省了空间。
减小字体大小。为此，您需要一些CSS，例如table { font-size: 12px; }。您可以将其嵌入代码块中：
```
```{css, echo = F}
table {
  font-size: 12px;     
}
```
```
请注意，这将更改演示文稿中所有表格的字体大小。更通用的方法是为特定的表格样式定义一个类，而不是将该类分配给幻灯片：
```
```{css, echo = F}
.regression table {
  font-size: 12px;     
}
```

---
class: regression
# Hello World 

< code producing the table >
```