Skip to main content
removeu 2 caracteres do conteúdo
Fonte Link
rdornas
  • 111
  • 3

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)

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)

Já faz algum tempo, mas vou tentar agregar mais uma resposta utilizando 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)

Fonte Link
rdornas
  • 111
  • 3

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)