Caesar noun cooccurrence

library(udpipe)
library(dplyr)
library(igraph)
library(ggraph)
library(tidyverse)
library(ggrepel)

caesar <- udpipe_read_conllu("https://github.com/locusclassicus/text_analysis_2024/raw/main/files/bg_latinpipe.conllu")

caesar_subset <-  caesar |> 
  filter(upos == "NOUN")


cooc <- cooccurrence(caesar_subset, term = "lemma", 
                     group = c("doc_id", "sentence_id")) |>
  as_tibble() |> 
  filter(cooc > 40)

g <- graph_from_data_frame(d = cooc, directed = FALSE)
ggraph(g, layout = "fr") +
  geom_edge_link(aes(width = cooc, alpha = cooc), 
                 color = "#5D6D7E", 
                 edge_width = 1.) +
  geom_node_point(aes(size = degree(g)), 
                  color = "#E67E22", 
                  alpha = 0.7) +
  geom_node_text(aes(label = name), 
                 point.padding = unit(0.2, "lines"), 
                 repel = TRUE,
                 size = 5, 
                 fontface = "bold") +
  scale_edge_width(range = c(0.2, 2), name = "Частота") +
  scale_size_area(max_size = 10, name = "Degree") +
  theme_void() +
  labs(title = "Граф совместной встречаемости существительных") +
  theme(legend.position = "right",
    plot.title = element_text(hjust = 0.5, face = "bold"))

Латинское слово	Перевод	Примечание
miles	воин
hostis	враг
castra	лагерь, укрепление
dies	день
copia	запас, изобилие	В ед. числе
copiae	войско	Во мн. числе
locus	место

Связь res и causa - возможно, из фразы “causa rei”