R markdown：如何紧凑地打印数据帧

Question

我用来knitr::kable打印我的数据框，但有时它们太大了。有没有简单的方法可以用滚动条紧凑地打印它们？

例如，我这样做：

knitr::kable(mtcars)

如何添加按条件滚动（例如， ifnrow > 10和/或ncol > 10）？

PSDT::datatable不适用于大ncol：

我需要精确的滚动界面。

Answer 1

您可以添加滚动条。例如，使用kableExtra或DT：

R Markdown

---
title: "Untitled"
output: html_document
---

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

Some very wide data:

```{r}
df <- cbind(mtcars, mtcars)
```

With `kableExtra`:

```{r}

kable(df) %>%
  kable_styling("striped", full_width = F) %>%
  scroll_box(width = "100%", height = "200px")
```

Or with `DT`:

```{r}
DT::datatable(
  df,
  height = 200,
  options = list(scrollX = TRUE)
)
```

输出