r - 如何将不同功能的输出组合成一份精美的报告？

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 和置信区间）的函数并将它们全部组合成一个格式良好的报告
（即来自所有函数的一系列绘图和胶水（）命令）怎么办？按顺序调用）？
要求是调用带有“功能”的报告。关于我应该查看哪些功能的任何建议？

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())

生成报告。