# NOT RUN {
library(tidyverse)
pokemon %>%
dplyr::filter(type1=="water") %>%
ggplot(aes(defense,attack))+
annotate_pogo(team = "mystic")+
geom_point()+
theme_mystic()+
labs(title="Team Mystic",subtitle="Water Pokemon")
# }
Run the code above in your browser using DataLab