---

WORD_PATH <- here("analysis/books/adult_comparision/cluster_analysis/data/by_word_clusters_all_models.csv")

words <- read_csv(WORD_PATH,
                     col_names = c("word", "tsne_X", "tsne_Y", "cluster_id", "is_gendered", "gender_bias", "effect_size", "mean_gender", "model_type", "run")) %>%
  mutate(run = case_when(is.na(run)~ 1, TRUE ~ run)) %>% 
  filter(model_type == "kid") %>%
  select(word, cluster_id, gender_bias, mean_gender) %>%
  mutate(word = tolower(word))

 DT::datatable(words)