Palmer Penguins umap animation

library(palmerpenguins)
library(tidyverse)
library(umap)
library(gganimate)

penguins_clean <- penguins %>% filter(!is.na(bill_length_mm), !is.na(sex))
penguinos <- function(neigh = 13) {
  penguins_clean %>%
    select(bill_length_mm:body_mass_g) %>%
    scale() %>%
    umap(n_neighbors = neigh) -> umapenguins
  penguins_clean %>%
    mutate(id = row_number()) %>%
    bind_cols(umapenguins$layout %>% as_tibble()) %>%
    mutate(neighbors = neigh)
}

animate(
  map_df(c(2:10, 15, 20, 30, 50), penguinos) %>%
    ggplot(aes(V1, V2, color = species, shape = species, group = id)) +
    geom_point(size = 2, alpha = 0.7) +
    hrbrthemes::theme_ipsum() +
    transition_states(neighbors, state_length = 0.1, wrap = TRUE) +
    view_follow() +
    labs(title = "UMAP(enguins)",
         subtitle = "Some Chinstraps numerically similar to Adelies",
         caption = "n_neighbors = {closest_state}"),
  fps = 25, duration = 10)