你可以用max-height和overflow-y创建一个css文件，然后用class把它添加到你的块中。注意这也包括滚动部分的代码。还要注意如果你想让一个 text 输出是可滚动的，你应该在块选项中使用class-output而不是class。

---
title: "scrollable-output"
format: html
---

```{css, echo = FALSE}
.output {
max-height: 500px;
overflow-y: scroll;
}

Here is some example code

#| class: output
library(ggplot2)
for(i in unique(iris$Species)) {
  print(
    ggplot(iris[iris$Species == i, ], aes(x = Sepal.Length, Sepal.Width)) +
      geom_point()
  )
}

![](https://i.stack.imgur.com/7QInV.png)

您可以在块之前添加一个div，例如：

---
title: "Scrollbar in output chunk"
format: html
    
css: styles.css
---

Here is some example code:

:::{.scrolling}

```{r}

library(ggplot2)
for(i in unique(iris$Species)) {
  print(
    ggplot(iris[iris$Species == i, ], aes(x = Sepal.Length, Sepal.Width)) +
      geom_point()
  )
}

:::

* * 样式. css**

.scrolling {
max-height: 500px;
overflow-y: auto;
}

![](https://i.stack.imgur.com/k81tt.png)

如果你不想滚动代码，那么你可以这样做：

title: "Scrollbar in output chunk"
format: html

css: styles.css

Here is some example code:

#| eval: false

library(ggplot2)
for(i in unique(iris$Species)) {
  print(
    ggplot(iris[iris$Species == i, ], aes(x = Sepal.Length, Sepal.Width)) +
      geom_point()
  )
}

:::{.scrolling}

#| echo: false

library(ggplot2)
for(i in unique(iris$Species)) {
  print(
    ggplot(iris[iris$Species == i, ], aes(x = Sepal.Length, Sepal.Width)) +
      geom_point()
  )
}

:::

![](https://i.stack.imgur.com/tr9Dn.png)