added Ned's ggplot tute code