add R-utils for creating association maps

R-utils/association.R

@@ -0,0 +1,22 @@
+library(tidyverse)
+library(ggraph)
+library(tidygraph)
+
+associations.maps <- function(associations, discoursemes, measure){
+
+  g <- associations |> 
+    filter(measure == "measure") |> 
+    filter(score > 0) |> 
+    select(node, candidate, score) |> 
+    rename(from = node, to = candidate, weight = score) |> 
+    left_join(discoursemes |> select(id, name), by = join_by(from == id)) |> mutate(from = name) |> select(- name) |> 
+    left_join(discoursemes |> select(id, name), by = join_by(to == id)) |> mutate(to = name) |> select(- name)
+
+  g |> 
+    as_tbl_graph(directed = FALSE) |> 
+    ggraph(layout = "fr") +
+    geom_edge_link(aes(width = weight), color = "gray") +
+    geom_node_point() +
+    geom_node_text(aes(label = name), repel = TRUE) +
+    theme_void()    
+}