r - 固定表头并带有滚动条的gt

要实现固定表头并带有滚动条的gt，可以使用以下代码示例：

library(gt)

# 创建一个示例数据框
data <- data.frame(
  A = c("apple", "banana", "orange", "kiwi", "mango"),
  B = c(10, 12, 8, 15, 9),
  C = c(5, 8, 6, 10, 7)
)

# 创建gt对象
table <- gt(data)

# 设置表头固定和滚动条
table <- table %>%
  tab_header(
    title = "Sample Table",
    fixed_header = TRUE,  # 固定表头
    theme = list(
      default = list(cell(padding = px(8))),
      ttheme_default(
        core = list(fg_params = list(weights = 700)),
        tspanner = list(fg_params = list(weights = 700))
      )
    )
  ) %>%
  tab_options(
    overflow = "scroll",  # 添加滚动条
    table.width = "100%"
  )

# 显示表格
print(table)

上述代码首先加载gt包，然后创建一个示例数据框data。接着，通过gt()函数创建一个gt对象table，并将数据框传入。

然后使用tab_header()函数设置表头的固定和样式。fixed_header = TRUE用于固定表头，theme参数用于设置表头样式，例如设置表头字体加粗。

接下来使用tab_options()函数设置表格的样式，其中overflow = "scroll"用于添加滚动条，table.width = "100%"用于设置表格宽度。

最后，使用print()函数显示表格。

运行上述代码，即可得到一个带有固定表头并带有滚动条的gt表格。