changing water facility level to faster dplyr format