SibSurfer

library(meta)
library(dplyr)
library(tibble)

data <- tribble(
  ~study, ~year, ~drug, ~n_treat, ~n_ctrl, ~effect, ~ci_lower, ~ci_upper, ~rob,
  "Adler 2021", 2021, "LDX", 38, 38, -9.6, -15.0, -4.2, "High",
  "Adler 2013", 2013, "LDX", 79, 75, -10.3, -14.3, -6.4, "High",
  "Frick 2017", 2017, "SHP465 MAS", 302, 103, -10.6, -13.2, -8.0, "High",
  "Adler 2008", 2008, "LDX", 189, 184, -11.6, -15.3, -8.1, "Some concerns",

SibSurfer

library(meta)

dat <- data.frame(
  study = c("Adler 2021", "Adler 2013", "Frick 2017",
            "Adler 2008", "Weisler 2017", "Wigal 2010"),
  drug  = c("LDX", "LDX", "SHP465 MAS",
            "LDX", "SHP465 MAS", "LDX"),
  rob   = c("High", "High", "High",
            "Some concerns", "Low", "Some concerns"),
  n_t   = c(38, 79, 302, 189, 275, 105),