<html><head></head><body><div style="font-family: Verdana;font-size: 12.0px;"><div>Dear All,</div>
<div> </div>
<div>here is my reproducible example:</div>
<div> </div>
<div>
<div>library(meta,tidyverse)</div>
<div><br/>
dat <- structure(list(studlab = c("Dubois 2015", "Fuller 2017a", "Malisoux 2016a (1)","Marshall 2013", "Ryan 2014 (2)", "Dubois 2015", "Malisoux 2016b", "Ryan 2011", "Malisoux 2020", "Theisen 2014", "Ryan 2011", "Ryan 2011"), <br/>
event.e = c(3, 11, 38, 1, 4, 8, 33, 13, 54, 37, 5, 13), <br/>
n.e = c(12,30, 176, 14, 32, 12, 187, 24, 428, 134, 32, 24), <br/>
event.c = c(3,16, 98, 1, 19, 11, 60, 8, 74, 32, 8, 5), n.c = c(12, 31, 377,15, 67, 12, 185, 25, 420, 113, 25, 32), <br/>
Comparison = c("Neutral_cushioned_vs_minimalist","Neutral_cushioned_vs_minimalist", "Neutral_cushioned_vs_minimalist","Neutral_cushioned_vs_minimalist", <br/>
"Neutral_cushioned_vs_minimalist","Neutral_cushioned_vs_minimalist", "Motion_control_vs_neutral",<br/>
"Motion_control_vs_neutral", "Soft_midsole_vs_hard_midsole","Soft_midsole_vs_hard_midsole", "Stability_vs_neutral", "Motion_control_vs_stability"), <br/>
Outcome = c("Number of runners injured", "Number of runners injured","Number of runners injured", "Number of runners injured", <br/>
"Number of runners injured","Running shoe satisfaction", "Number of runners injured", "Number of runners injured",<br/>
"Number of runners injured", "Number of runners injured", "Number of runners injured","Number of runners injured"), id = c(1, 1, 1, 1, 1, 2, 3, 3,4, 4, 5, 6)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -12L))</div>
<div> </div>
<div>#nest the list to be able to calculate all meta-analyses at once and plot them at once as a forest plot<br/>
dat_list <- dat %>% group_by(id) %>% nest(data=c(studlab,event.e,n.e,event.c,n.c,Comparison))</div>
<div> </div>
<div>#calculate all pairwise meta-analyses </div>
<div>dat_list <- map(dat_list$data,~{meta::metabin(event.e = event.e, <br/>
n.e = n.e,<br/>
event.c = event.c,<br/>
n.c = n.c,<br/>
studlab = studlab,<br/>
data=.x,<br/>
sm = "RR",<br/>
fixed = FALSE,<br/>
random = TRUE,<br/>
method.tau ="DL")})</div>
<div><br/>
#plot all forest plots after another and save them as pdfs<br/>
pdf("all_forestplots.pdf",width = 10, height = 7)<br/>
map(dat_list,~{meta::forest(.x,label.right = "Favours Group 2",label.left = "Favours Group 1",text.addline2= .x[["data"]][["Comparison"]])})<br/>
dev.off()</div>
<div> </div>
<div> </div>
<div>My question is: "How can I insert a title to this?" At the moment I am using the "text.addline2" argument. But this is a bit unsatisfactory. To my knowledge "meta::forest" does not have a title argument.</div>
<div>is there another option to do this?</div>
<div> </div>
<div>Thanks in advance.</div>
<div> </div>
<div>Regards,</div>
<div>Tobias Saueressig</div>
<div>Physio Meets Science GmbH</div>
<div>Wuppertal, Germany </div>
<div> </div>
<div> </div>
</div></div></body></html>