library(tidyr) longrma <- gather(rma,key=time,value=score,-id,-group) longrma$time <- factor(longrma$time,levels = c("before","middle","after")) longrma$group <- factor(longrma$group,levels = c("control","trea...