def write_louvain_communities() do
    Bolt.Sips.query!(
      Bolt.Sips.conn(),
      """
      CALL gds.louvain.write(
        'words',
        {
          relationshipWeightProperty: 'weight',
          writeProperty: 'community'
        }
      )
      """,
      %{},
      timeout: 60000
    )
  end

      fastrpEmbedding: [Float]!

      fastrpEmbedding: [Float]!,
      community: Int!

    community

```
```{r}
deduped_words %>% group_by(community) %>% tally(sort=TRUE) %>% filter(n <= 10)

  select(-community) %>%

g <- tSNE_df %>% sample_n(2000) %>% ggplot(aes(x=tSNE1, y=tSNE2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")

g <- tSNE_df %>%
  sample_n(2000) %>%
  ggplot(aes(x=tSNE1, y=tSNE2, label=word, color=community)) +
  geom_text(aes(label=word), hjust=0, vjust=0)