if (FALSE) {
# Ejemplo con tema dark, agrupando por mes
datos <- extraer_noticias_fecha("cambio climatico", "2024-01-01","2025-01-01", subir_a_bd = FALSE)
grafico_notas_fecha(datos, titulo = "Cambio Climatico (por mes)",
agrupar_por = "month", tema = "dark")
# Ejemplo con tema light, agrupando por dia
grafico_notas_fecha(datos, titulo = "Cambio Climatico (por dia)",
fecha_inicio = "2024-01-01", fecha_fin = "2024-03-31",
tema = "light")
}
Run the code above in your browser using DataLab