Я пытаюсь создать диаграмму рассеяния с маргинальными гистограммами, используя цикл for. Ниже мой файл Rmarkdown и вывод. Вывод должен отображать три разные диаграммы рассеяния, но показывает только одну. Я считаю, что они помещаются друг на друга, когда они находятся в одном куске.
Я не хочу создавать куски в цикле. Как я могу создать три диаграммы рассеяния, используя цикл?
---
title: "My Report"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(ggExtra)
library(tidyverse)
```
## In for-loop
```{r}
for (i in 1:3) {
df <- data.frame(x = rnorm(50), y = rnorm(50))
p <- ggplot(df, aes(x = x, y = y)) +
geom_point()
print(ggExtra::ggMarginal(p, type = "histogram"))
}
```
## No for-loop
```{r}
df <- data.frame(x = rnorm(50), y = rnorm(50))
p <- ggplot(df, aes(x = x, y = y)) +
geom_point()
ggExtra::ggMarginal(p, type = "histogram")
df <- data.frame(x = rnorm(50), y = rnorm(50))
p <- ggplot(df, aes(x = x, y = y)) +
geom_point()
ggExtra::ggMarginal(p, type = "histogram")
```
## Separate Chunks
```{r}
df <- data.frame(x = rnorm(50), y = rnorm(50))
p <- ggplot(df, aes(x = x, y = y)) +
geom_point()
ggExtra::ggMarginal(p, type = "histogram")
```
```{r}
df <- data.frame(x = rnorm(50), y = rnorm(50))
p <- ggplot(df, aes(x = x, y = y)) +
geom_point()
ggExtra::ggMarginal(p, type = "histogram")
```