Import data

# excel file
myData <- read_excel("data/myData.xlsx")

State one question

How many Pokemon have each secondary type?

Plot data

myData %>%
    
    ggplot(aes(type_2)) +
    geom_bar()+
theme(axis.text.x=element_text(angle=45,hjust=1))

Interpret

The majority of Pokemon lack a secondary type. The more popular secondary types suggest certain type combinations are more common within the dataset.