Updated to use ggplot2 instead of base plot