我创建了一个报告 PerfReport.Rmd,将一个人的表现与一大群人的表现进行比较。我有数百人应该收到这份报告的个性化版本,将他们自己的表现与大群体进行比较。
我看到的障碍是:
1. 我需要每个文件名都包含人名。
2. 每个文件都有特定于个人的计算。
这是一个例子 .Rmd
---
title: "Course Success"
output:
html_document: flexdashboard::flex_dashboard
pdf_document: default
---
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(dplyr)
library(plotly)
```
```{r comp, echo=FALSE, message=FALSE,warning=FALSE}
df<-data.frame(Person=c('a','a','a','a','a','b','b','b','b','b','c','c','c','c','c','d','d','d','d','d'),
Success=c(1,0,1,1,0,1,0,0,0,0,1,1,1,1,1,0,1,0,0,1),
Valid=c(1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,1,1))
testperson<-'b'
comparison<-df%>%
transmute(Your_Rate=sum(Success[Person==testperson])/sum(Valid[Person==testperson]),
Baseline=sum(Success[Person!=testperson])/sum(Valid[Person!=testperson]))%>%
distinct(Your_Rate,.keep_all = TRUE)
plot_ly(comparison,y=~Your_Rate, type='bar')%>%
add_trace(y=~Baseline)
```
按照我的结构,.Rmd 中的一个变量定义了进行计算的人,我处理文件名的唯一方法是在编织之前手动保存一个带有人名的文件。
我对如何实现这一点的猜测是:
如果我对这里的一般步骤是正确的,那么我在第 2 步中覆盖了一个 .R 文件,该文件将目录中的每个 .Rmd 文件编织在一起。
files<-list.files("E:/Dashboards/",pattern = "[.]Rmd$")
files2<-as.data.frame(files)
files3<-files2%>%
mutate(filenow=paste0("E:/Dashboards/",files))
files4<-files3$filenow
for (f in files4) rmarkdown::render(f)
任何帮助生成具有调整值的
testperson
的 .Rmd 文件的方法将不胜感激。如果有一种更好的方法可以从一个单一的主 .Rmd 获得数百个我想要制作的个性化 .html 仪表板,我也很想学习这种方法!先感谢您。
最佳答案
您可以使用 yaml 参数 params
来解决这个问题。你会需要
这是一个简单的小例子:
模板.Rmd
---
title: no title
author: Roman
date: "`r Sys.Date()`"
params:
testperson: NA
---
```{r}
print(params$testperson)
```
```{r}
sessionInfo()
```
脚本文件
library(rmarkdown)
persons <- c("person1", "person2", "person3")
for (person in persons) {
rmarkdown::render(input = "template.Rmd",
output_file = sprintf("%s_report.html", person),
params = list(testperson = person)
)
}
这应该使用
personX_report.html
文件填充您的工作文件夹(请参见下面的屏幕截图)。关于r - 如何生成和编写 .Rmd 报告的个性化版本?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/60127812/