library(ggplot2) setwd("~/Desktop/cdsc/health literacy/") stigma <- read.csv("stigmaindex_aggregated_temp_92CI.csv") ggplot(data=stigma) + aes(x=Year, y=mean, group=Reconciled_Name, color=Reconciled_Name) + geom_line() + theme(legend.position="none") + facet_wrap(vars(Reconciled_Name), ncol=12)