fixed typo in ggplot2 statement