从 RMarkdown 中的 kableExtra 表增加标题大小

Question

我正在使用posterdown中的海报 package 来生成 HTML 海报并将其呈现为 ZBCD1BZFF686176B59AD1

我的 Rmd 文件中有一个表格，但是标题非常小。 有没有办法增加标题的大小？

其次，我还想将 header 中的标题和隶属关系稍微向下移动（使其更位于 header 的中心。有没有办法做到这一点？

这是我的 Rmd 文件的片段

---
title: Here is my title 
author:
  - name: Name and Surname
affiliation:
    address: Department, University
column_numbers: 3
logoright_name: https://raw.githubusercontent.com/brentthorne/posterdown/master/images/betterhexlogo.png
logoleft_name: https://raw.githubusercontent.com/brentthorne/posterdown/master/images/betterhexlogo.png
output: 
  posterdown::posterdown_html:
    self_contained: false
knit: pagedown::chrome_print
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

# Intro

```{r table1, echo = FALSE, warning = FALSE, message = FALSE, results = 'asis', fig.pos='!h'}
library(tidyverse)
library(kableExtra)

col_1 <- c(1,2,3)
col_2 <- c(4,5,6)
col_3 <- c(7,8,9)

data.frame(col_1, col_2, col_3) %>% 
  kable(format='html',booktabs=TRUE, caption = "This is the caption", escape=F) %>% 
  kable_styling(font_size = 45)

```

`````

Answer 1

对于标题，您有多种选择。 最简单的方法当然是在文档顶部的 YAML 的标题前插入一个<br> 。 这将在您的标题之前插入一个换行符。

或者，您可以插入 CSS 块来更改h1标签的样式：

```{css, echo=FALSE}
h1 {
    padding-top: 40px
}
```

原则上，您应该能够包含这种 CSS 块来更改任何 HTML 元素的样式。 但是， kableExtra似乎对字体大小进行了硬编码并忽略了 CSS，因此该解决方案仅适用于某些样式元素。 一个 hacky 解决方案是使用gsub或其他类似机制手动替换原始 HTML 中的字体大小：

```{css, echo=FALSE}
.table caption {
    color: red;
    font-weight: bold;
}
```

```{r table1, echo = FALSE, warning = FALSE, message = FALSE, results = 'asis', fig.pos='!h'}
library(kableExtra)

col_1 <- c(1,2,3)
col_2 <- c(4,5,6)
col_3 <- c(7,8,9)

data.frame(col_1, col_2, col_3) %>% 
    kbl(format = 'html',
        escape = FALSE,
        caption = "This is the caption") %>% 
    kable_styling(font_size = 45) %>%
    gsub("font-size: initial !important;", 
         "font-size: 45pt !important;", 
         .)
```