Import data

# csv file
data <- read_csv("data/myData.csv")
data

State one question

Are later generations of pokemon stronger than earlier generations using average total base stats?

Plot data

plotdata <- data %>%
  filter(!is_legendary, !is_mythical)%>%
  mutate(bst = hp+attack+defense+`special-attack`+`special-defense`+speed)%>%
  group_by(generation) %>%
  reframe(average_bst = ave(bst))%>%
  distinct(generation, average_bst)
ggplot(plotdata, aes(x = generation, y = average_bst, fill = generation))+
    geom_bar(stat = "identity")+
    coord_flip()

Interpret

Later generations of pokemon have higher base stat totals which shows that later generations of pokemon are more powerful than earlier ones.