Facial Nerve Size in Healthy Controls: A Meta-analysis

library(meta)
library(tidyverse)
library(dmetar)

df <- read_csv("full.csv")

m.gen <- 
    metamean(
        n = N,
        sd = SD,
        mean = `Mean (mm)`,
        studlab = Study,
        data = df,
        subgroup = Site,
        sm = "MRAW",
        fixed = FALSE,
        random = TRUE,
        title = "Facial Nerve Size in Healthy controls"
        )

forest.meta(
    m.gen,
    weight.study = "common",
    leftcols = c("studlab","effect.ci"),
    leftlabs = c("Studies", "Estimate (95% CI)"),
    rightcols = FALSE,
    xlim = c(.2,1.6),
    col.diamond = "#244C7C",
    col.square = "#2A883E",
    print.Q = F,print.Q.subgroup = F,
    print.tau2 = F,JAMA.pval = T)

leav1out <- metainf(m.gen)

forest.meta(
    leav1out,
    col.diamond = "#244C7C",
    col.square = "#2A883E",
    leftcols = c("studlab", "effect.ci"),
    leftlabs = c("Studies", "Estimate (95% CI)"),
    rightcols = F,
    xlim = c(.3,1.3) )