r - 使用 kable 或 DT 将标题固定在顶部

Question

我试图在我的 html 输出中包括一个垂直滚动的表格。该表看起来很棒，但我想将标题固定在顶部(而现在它像其他所有内容一样向上滚动)。加号还可以过滤列，或与它们交互(例如排序)。

我尝试同时使用 kable() + kableExtra() 和 DT()。我的理解是使用 DT 会更容易，但我发现文档非常困惑。

我正在做这样的事情:

library(datasets)
library(knitr)
library(kableExtra)
library(DT)

data(iris)

# with kable
kable(iris, "html") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "responsive"), 
                full_width = F) %>%
  scroll_box(width = "100%", height = "400px")

# with DT
datatable(showData, options = list("scrollY"))

我真的找不到一种方法来修复顶部的标题或添加过滤器。有什么建议吗？

谢谢!

Answer 1

您可以将自定义 CSS 与 kable 结合使用，以创建具有固定标题的可滚动表体。

例如，在项目目录下创建文件styles.css，内容如下:

.table-fixed-header tbody{
  display:block;
  overflow:auto;
  height:400px;
  width:100%;
}
.table-fixed-header thead tr{
  display:table-header-group;
  height:100%;
}

在.Rmd文件的YAML中，引用styles.css:

output: 
html_document:
    css: styles.css

在 R 代码块中，将样式名称传递给 kable() 函数

kable(iris, escape = F, table.attr='class="table-fixed-header"') %>%
  kable_styling()