extendend and used ggplot