p1 <- ggplot(shared_pokemon, aes(x = `Type 1`, y = Total, fill = `Type 1`)) +
  geom_boxplot(show.legend = FALSE) +
  labs(
    x = "Type"
  ) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))


ggplotly(p1)

p <- ggplot(shared_pokemon, aes(x = Defense, y = Attack)) +
  geom_point() +
  labs(
    title = "Attack vs Defense by Type",
    x = "Defense",
    y = "Attack"
  )
ggplotly(p)