diff --git a/R-utils/association.R b/R-utils/association.R
new file mode 100644
index 0000000..08a6e8e
--- /dev/null
+++ b/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()    
+}
\ No newline at end of file