Já faz algum tempo, mas vou tentar agregar mais uma resposta utilizando o as funções tidyr::nest
e purrr::map
. De forma geral, é uma possibilidade mais completa em termos tidyverse
. Todos os gráficos gerados vão estar no objeto gg
criado e cujo título é o ano da série.
library(lubridate)
library(tidyverse)
Ind_mensais <- read.csv2("DOMensalEstadoDesde1991.csv") %>%
mutate(mes = month(mes, label = TRUE, locale = "pt_BR")) %>%
group_by(vano) %>%
nest(.)
NEST <- set_names(Ind_mensais$data, sprintf("%s", Ind_mensais$vano))
gg <- map(names(NEST), function(w){
z <- NEST[[w]]
z %>%
ggplot(., aes(x = mes, y = latrocinio, group = 1)) +
geom_line() +
labs(title = w)
})
Created on 2020-02-20 by the reprex package (v0.3.0)