library(labinstrumentos)
lab_instrumentos <- obtener_datos()[region == 1]
vars <- c("clean_problema", "clean_causa", "clean_consecuencia")
lab_instrumentos[j = (vars) := lapply(.SD, gsub, pattern = "macrozona-austral", replacement = ""),
.SDcols = vars]
Interrelación de términos, instrumentos y su clasificación
Términos de una palabra
crear_sankey(lab_instrumentos,
n_words = 1, # Número de palabras juntas
freq_minima = 10, # Frecuencia mínima para la inclusión
height = 850) # Altura en píxeles del gráfico
Términos de dos palabras
crear_sankey(lab_instrumentos,
n_words = 2,
freq_minima = 6,
height = 850)
Términos de tres palabras
crear_sankey(lab_instrumentos,
n_words = 3,
freq_minima = 4,
height = 850)