if (FALSE) {
# Comparar todas las medios por mes
datos <- extraer_noticias_fecha("delincuencia", "2024-01-01", "2025-01-01", subir_a_bd = FALSE)
grafico_comparacion_medios(datos, titulo = "Cobertura de Delincuencia por Medio",
agrupar_por = "month", tema = "dark")
# Comparar medios especificas por dia
grafico_comparacion_medios(datos, titulo = "Comparacion BBCl vs emol",
medios = c("bbcl", "emol"),
fecha_inicio = "2024-06-01", fecha_fin = "2024-06-30",
agrupar_por = "day", tipo_grafico = "barras")
}
Run the code above in your browser using DataLab