lapply for 3 plots