changed plot to ggplot