@fastRP_dimension 128

          embeddingDimension: 32,

          embeddingDimension: $dim,

      """

      """,
      %{
        dim: @fastRP_dimension
      }

g2 <- res[1:200,] %>% ggplot(aes(x=V1, y=V2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")

set.seed(42)
g2 <- res %>% sample_n(200) %>% ggplot(aes(x=V1, y=V2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")