如何将不同函数的输出组合成一个漂亮的报告？

Question

我喜欢：
.多个地块，每个地块由不同的函数创建。

#Plot 1
sis_name <- babynames %>% 
  filter(name == "Kate", sex == "F") %>% 
  select("year", "name", "prop")

plot1 <- ggplot(data = sis_name) +
             geom_line(mapping = aes(x = year, y = prop)) +
             labs(title = "The Popularity of baby girls' name Kate", x = 
             "Year", y = "Proportion")

#Plot 2
plot2 <- ggplot(data = mydata) +
            geom_point(mapping=aes(x=X, y=Y), color="blue") +
            labs(title="Y vs X")

。一些“文本”输出，由 glue::glue() 和 paste() 函数创建。

conf_interval <- function(mydata) {
  model <- lm(Y~X, data = mydata)
  B_conf <- confint(model,                       #confidence interval for B
                    model$coefficients[2], 
                    level = 0.95
    glue::glue("Confidence interval for slop is {B_conf}")
}

如果我想创建一个函数来调出所有输出（图 1、图 2 和置信区间）并将它们全部合并到一个格式良好的报告中怎么办
（即来自所有顺序调用的函数的一系列 plot 和 glue() 命令）？
要求是用“功能”调出报告。关于我应该查看哪些功能有什么建议吗？

Answer 1

您可以将下面的示例保存为名为 report.Rmd:

的文件

---
title: "My Title"
author: "Me"
date: "21/08/2021"
output: html_document
---

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

# Title

```{r}
ggplot(mpg, aes(displ, hwy)) +
  geom_point()
```

Other variables include `r glue_collapse(colnames(mpg), sep = ", ", last = " and ")`.

随后，您可以运行以下内容：

library(rmarkdown)
render("report.Rmd", html_document())

生成报告。

如何将不同函数的输出组合成一个漂亮的报告？

How to combine outputs of different functions into a nicely report?

plot

r

report

ggplot2

r-glue