Get entities

get_entities.R

#init empty vector
entities <- c()

#get entities and append to vector
for (i in 1:length(hungary_processed$text_processed)){
  entry <- detect_entities(hungary_processed$text_processed[i])
  if (ncol(entry) > 1){
    entities <- c(entities, entry[, 5])
    log_info("Found entities for post {i}")
  } else {
    log_info("Found NO entities for post {i}, skipping")
  }
}

#extract top 10
entity_freq <- data.frame(sort(table(wordStem(entities, 'en')), decreasing = TRUE)) %>%
  slice(1:10)