Create The ggplot function