Как размер метки узла в ggraph зависит от суммы прочности ребер в модели upp cooccurence?

Question

Следуя примеру здесь

library(udpipe) 
data(brussels_reviews) 
comments <- subset(brussels_reviews, language %in% "es") 
ud_model <- udpipe_download_model(language = "spanish") 
ud_model <- udpipe_load_model(ud_model$file_model) 
x <- udpipe_annotate(ud_model, x = comments$feedback, doc_id = comments$id) 

x <- as.data.frame(x)

cooc <- cooccurrence(x$lemma, relevant = x$upos %in% c("NOUN", "ADJ"), skipgram = 1) head(cooc)



      library(igraph) 
library(ggraph)
     library(ggplot2) 
    wordnetwork <- head(cooc, 15) 
    wordnetwork <- graph_from_data_frame(wordnetwork) ggraph(wordnetwork, layout = "fr") +
     geom_edge_link(aes(width = cooc, edge_alpha = cooc)) +
     geom_node_text(aes(label = name), col = "darkgreen", size = 4) +
     theme_graph(base_family = "Arial Narrow") +
     labs(title = "Words following one another", subtitle = "Nouns & Adjective")

Как сделать так, чтобы размер метки узла зависел от суммы прочности кромки в модели Uccp Cooccurence? Таким образом, я хочу выделить самые важные слова. Поскольку чем толще ребра и чем больше количество ребер узла, тем важнее этот узел. У кого-нибудь есть идеи о том, как сделать это в ggraph?

Томас Педерсон упомянул об этом, но я не могу понять, как это сделать.