如何在 r-markdown 中一次制作多个针织物？

Question

我仍在寻找您可以提供的任何帮助:)

我正在制作一个充满不同工作统计数据的单页纸。 我有 70 份不同的工作，这意味着我需要制作 70 份单页纸。 我如何自动化降价以一次制作所有 70 个？

我制作了一个简化的降价版本，只有两个基本图。 我怎样才能做到这一点，以便在我的示例中有 3 个作业时，当我编织时，我会在每个 onepager 上获得 3 个具有正确统计信息的 onepager，并将它们保存到“C:/Users/Desktop/Onepagers/”，并将作业作为 pdf 名称。 例如：Analyst.pdf、Doctor.pdf 和 Pilot.pdf

表 1 上的第一个 DF 是：

Job     GENDER     PEOPLE
Analyst   M         500
Analyst   F         1000
Doctor    M         2500
Doctor    F         2000
Pilot     M         50
Pilot     F         10

表 2 上的第二个 DF 是：

JOB      AGE      PEOPLE
Analyst Under 30   400
Analyst 31-40      700
Analyst 41-50      300
Analyst Over 50    100
Doctor Under 30    500
Doctor 31-40       1500
Doctor 41-50       1500
Doctor Over 50     1000
Pilot  Under 30    10
Pilot  31-40       25
Pilot  41-50       20
Pilot  Over 50     5

---
title: "Name of job"
output: pdf_document
---

```{r setup, include=FALSE}
library(tidyverse)
library(readxl)
options(scipen = 100)
knitr::opts_chunk$set(echo = TRUE)
```


```{r, echo=FALSE, fig.width=4, fig.height=2.5}

GENDER <- read_xlsx("C:/Users/Desktop/TEST_MARKDOWN.xlsx", sheet=1)

GENDER <- filter(GENDER, JOB == "Analyst")

ggplot(GENDER,aes(y=GENDER, x=PEOPLE))+
  geom_bar(stat = 'identity')+
  theme_minimal()

```

```{r, echo=FALSE, fig.width=3.7, fig.height=2.5}

AGE <- read_xlsx("C:/Users/Desktop/TEST_MARKDOWN.xlsx", sheet=2)

AGE <- filter(AGE, JOB == "Analyst")

ggplot(AGE,aes(y=AGE, x=PEOPLE))+
  geom_bar(stat = 'identity')+
  theme_minimal()

```

Answer 1

有几个步骤可以实现这一点。 不过，远不如自己创建 70 个文件！

您有两个不同的数据集。 在您的帖子中，一个有Job ； 另一个有JOB 。 我将它们都更改为JOB 。 在您的帖子中，职位名称的记录方式相同。 例如-

分析师=分析师≠分析师≠分析师

如果这总是正确的，这将起作用。 如果它并不总是正确的，它仍然可以完成，但它需要修改。

您将创建一个 RMD模板和一个使用该模板的 R 脚本。 我建议您首先为一个工作领域创建一个 RMD。 完全按照您希望所有文件的外观对其进行格式化。 然后将文件修改为模板（或复制它）。 一旦它是模板，您将无法在没有 R 文件的情况下编织 RMD 文件。

YAML 有一个基于职位的标题，但这只是因为您已经表明这是需要的。 但是， call params:有非常具体的信息。 您可以更改引号中的内容，但params:必须保持原样，并且您正在迭代的变量（如此处的JOB ）必须与数据中出现的完全相同。

---
title: "`r params$JOB`"
output: pdf_document
params:
  JOB: ""
---

库和选项（没有变化）

```{r setup, include=FALSE}
library(tidyverse)
library(readxl)
options(scipen = 100)
knitr::opts_chunk$set(echo = TRUE)
```

块的代码——注意删除特定作业和内容params$JOB 。 这将来自 R 文件。

```{r p1, echo=FALSE, fig.width=4, fig.height=2.5}
GENDER <- read.table(header = T, text = "
                     JOB     GENDER     PEOPLE
Analyst   M         500
Analyst   F         1000
Doctor    M         2500
Doctor    F         2000
Pilot     M         50
Pilot     F         10")

# GENDER <- read_xlsx("C:/Users/Desktop/TEST_MARKDOWN.xlsx", sheet=1)
# GENDER <- filter(GENDER, JOB == "Analyst")
GENDER <- filter(GENDER, JOB == params$JOB)

ggplot(GENDER, aes(y = GENDER, x = PEOPLE)) +
  geom_bar(stat = 'identity') +
  theme_minimal()

```


```{r p2, echo=FALSE, fig.width=3.7, fig.height=2.5}
AGE <- read.table(header = T, text = "
                  JOB      AGE      PEOPLE
Analyst Under-30   400
Analyst 31-40      700
Analyst 41-50      300
Analyst Over-50    100
Doctor Under-30    500
Doctor 31-40       1500
Doctor 41-50       1500
Doctor Over-50     1000
Pilot  Under-30    10
Pilot  31-40       25
Pilot  41-50       20
Pilot  Over-50     5
")

# AGE <- read_xlsx("C:/Users/Desktop/TEST_MARKDOWN.xlsx", sheet=2)
# AGE <- filter(AGE, JOB == "Analyst")
AGE <- filter(AGE, JOB == params$JOB)

ggplot(AGE,aes(y = AGE, x = PEOPLE)) +
  geom_bar(stat = 'identity') +
  theme_minimal()

```

保存这个 RMD 文件，但不要打扰编织； 它行不通。 记下该文件的名称和位置； R 文件需要它。

我的 RMD 被命名为 pdfGraphs.Rmd（我知道很原始）。 我将 R 文件保存在与 RMD 相同的目录中（但这不是必需的）。 但是，它们没有保存在当前工作目录中，所以我仍然需要路径。

R文件的内容

library(tidyverse)
library(rmarkdown)
library(glue)

# only one of the two tables is needed here
###  ASSUMING that the call for filtering is using the exact same values
####  for example, Analyst = Analyst ≠ analyst ≠ ANALYST 
#### as long as it's the same word, same spelling, same capitalization
GENDER <- read.table(header = T, text = "
                     JOB     GENDER     PEOPLE
Analyst   M         500
Analyst   F         1000
Doctor    M         2500
Doctor    F         2000
Pilot     M         50
Pilot     F         10")

walk(.x = unique(GENDER$JOB),
     ~render(input = "./snippets/pdfGraphs.Rmd", # path via working directory
             output_file = glue({.x}, ".pdf"), # file name is job; i.e., Analyst.pdf
             params = list(JOB = {.x})))       # set's the param variable

现在，当我运行此代码时，它将创建一个名为 JOB 名称的 pdf，如下所示。

仅供参考，我通过删除图书馆epoxy更新了这个内容。 这不是必需的。 （感谢GD）