first plot done
factor cleaning code out into tidy.R