r - 宽表下的滚动条不适合页面宽度

Question

我正在使用 knitr 来生成动态文档。如果表格太宽而无法适应页面(屏幕)宽度，有没有办法强制它适合页面，同时在表格下方保留滚动条，以便人们可以从左向右滑动滚动条并阅读表格内容？

这是一个测试代码

---
title: "Untitled"
author: "ath"
date: "07/02/2015"
output: 
html_document:
  css:custom.css
---
```{r set-options}
options(width = 80)
```
```{r test, results='markup'}
df.matrix <- matrix(runif(300, min = 0, max = 300), nrow = 2)
df.matrix <- as.data.frame(df.matrix)
colnames(df.matrix) <- paste("col", as.character(seq(1:150)), sep = "")
library("knitr")
kable(df.matrix, col.names = colnames(df.matrix))
```

看起来选项中的宽度不起作用。

谢谢!

Answer 1

您可以使用 kableExtra 为垂直和水平滚动添加滚动条。

例子:

---
title: "Untitled"
author: "ath"
date: "07/02/2015"
output: html_document
---

```{r set-options}
library("knitr")
library(kableExtra)
library(magrittr)
options(width = 80)
```

```{r test, results='markup'}
df.matrix <- matrix(runif(300, min = 0, max = 300), nrow = 2)
df.matrix <- as.data.frame(df.matrix)
colnames(df.matrix) <- paste("col", as.character(seq(1:150)), sep = "")
```

```{r kable, results = "asis"}
df.matrix %>%
  kable(format = "html", col.names = colnames(df.matrix)) %>%
  kable_styling() %>%
  kableExtra::scroll_box(width = "100%", height = "100px")
```

<br>

```{r}
devtools::session_info()
```

该表的屏幕截图如下。您可以获得示例 .Rmd 文件和生成的 .html 文件的副本 here .