Tobias,
Good to hear that you found a solution.
I somewhat extended your R code to make it more general.
library(meta)
data(Fleiss1993bin)
refs <- 20 + seq_len(nrow(Fleiss1993bin))
mylabs <- NA
##
for (i in seq_len(nrow(Fleiss1993bin)))
? mylabs[i] <-
??? as.expression(substitute(study^ref~(year),
???????????????????????????? list(study = Fleiss1993bin$study[i],
????????????????????????????????? ref = refs[i],
????????????????????????????????? year = Fleiss1993bin$year[i])))
##
mylabs
m <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,
???????????? studlab = paste(study, year),
???????????? sm = "OR", comb.random = FALSE)
pdf("forest-study-ref-year.pdf", width = 8.5, height = 3.5)
forest(m, studlab = mylabs)
dev.off()
Best wishes, Guido