create ggplot ad type app