如何在R标记中增加数据表的高度

---
title: "增加数据表高度示例"
output:
  html_document:
    toc: true
    toc_float: true
    number_sections: true
---

library(kableExtra)

# 创建一个数据框
df <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(24, 27, 22),
  stringsAsFactors = FALSE
)

# 使用kableExtra设置表格高度
kable(df, "html", escape = FALSE) %>%
  kable_styling(full_width = FALSE) %>%
  add_header_above(c("个人信息" = 2)) %>%
  column_spec(1, width = "15em") %>%
  column_spec(2, width = "10em") %>%
  scroll_box(width = "100%", height = "300px")

library(DT)

# 创建一个数据框
df <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(24, 27, 22),
  stringsAsFactors = FALSE
)

# 使用DT设置表格高度
datatable(df, options = list(scrollY = '300px', scrollX = TRUE))

<style>
  .dataframe {
    height: 300px;
    overflow-y: auto;
  }
</style>

# 创建一个数据框
df <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(24, 27, 22),
  stringsAsFactors = FALSE
)

# 显示数据框
df