Use base-R instead of ggplot2
Clean up code