diff --git a/scripts/data_processing/5_diagnostics_plots.R b/scripts/data_processing/5_diagnostics_plots.R
index acb90f7..ba37eb6 100644
--- a/scripts/data_processing/5_diagnostics_plots.R
+++ b/scripts/data_processing/5_diagnostics_plots.R
@@ -107,7 +107,7 @@ prop <- wq.temp %>%
   summarise_at(vars(loadvars), sum)
 
 # change names to be shortened/clean versions
-names(prop)[2:ncol(prop)] <- clean_names[(length(concvars) + 1):(length(clean_names))]
+names(prop)[2:ncol(prop)] <- clean_names
 prop.long <- prop %>%
   gather(variable, value, -frozen)