使用 R Markdown 格式化 HTML 观星表

如何解决使用 R Markdown 格式化 HTML 观星表

我有一个用以下代码制作的 Stargazer 表（HTML 输出）：

{css,echo = FALSE} ##next to apostrophe at the beginning of chunk

table,td,th {
  border: none;
  padding-left: 4em;
  padding-right: 4em;
  margin-left: auto;
  margin-right: auto;
  margin-top: 4em;
  margin-bottom:4em;
}

{r,results="asis",message=FALSE,echo=FALSE} ##next to apostrophe at the beginning of chunk

library(stargazer)
library(stats)
cars <- force(mtcars)
cars$cyl <- factor(cars$cyl,levels = c(4,6,8),labels = c("Cuatro","Seis","Ocho"))
reg1<-lm(mpg ~ cyl,data=cars)

reg2<-lm(mpg ~ cyl + disp + hp,data=cars)

reg3<-lm(mpg ~ cyl + disp + hp + 
               drat + wt,data=cars)
stargazer(reg1,reg2,reg3,type="html",star.cutoffs=c(0.05,0.01,0.001),header=FALSE,decimal.mark = ",",intercept.top = TRUE,dep.var.labels.include = FALSE,dep.var.caption = "",font.size = "Huge",intercept.bottom = FALSE,column.sep.width = "0.25pt",omit.stat=c("f","ser"),single.row=TRUE,column.labels = c("**Model 1**","**Model 2**","**Model 3**"),model.numbers=FALSE,covariate.labels = c("**Intercepto**","**Variable dummy 1**","**Variable dummy 2**","**Variable independiente 2**","**Variable independiente 3**","**Variable independiente 4**","**Variable independiente 5**"))

这会在图像中创建表格 [

我有几个关于表格格式的问题：

• 如何增加行间距并减少列间距（即调整表格的高度和宽度）？此 link 中提供的解决方案对我不起作用（可能是因为示例中的表格是 Latex 而不是 HTML？）。

• 是否可以修改表格中的水平线？理想情况下，我希望第一行（模型名称上方的那一行）位于模型名称和截距之间。我也希望第一行和第三行是双行而不是单行。

任何有关如何实现这一目标的帮助将不胜感激！