0

Quero usar os dados da Selic para uma simulação no R, mas não os dados iniciais, somente depois de certa data. Os dados estão organizados conforme abaixo:

selic <- structure(list(var_1 = c("jun", "jul", "ago", "set", "out", "nov", 
"dez", "jan", "fev", "mar", "abr", "mai", "jun"), var_2 = c(1986, 
1986, 1986, 1986, 1986, 1986, 1986, 1987, 1987, 1987, 1987, 1987, 
1987), var_3 = c(NA, NA, NA, NA, NA, NA, NA, "11.00", "19.61", 
"11.95", "15.30", "24.63", "18.02"), var_4 = c("1.27", "1.95", 
"2.57", "2.94", "1.96", "2.37", "5.47", NA, NA, NA, NA, NA, NA
)), row.names = c(NA, -13L), class = c("tbl_df", "tbl", "data.frame"
))

Quero que apareça de julho de 94 até dezembro de 2019.

Como posso proceder?

2
  • Filtrar a partir de um determinado ano ou a partir de um determinado ano e mês? Forneça mais detalhes sobre o que precisa, Diego.
    – neves
    Commented 18/01/2020 às 1:31
  • Boa noite. Quero que apareça de julho de 94 até dezembro de 2019. Commented 18/01/2020 às 1:50

2 Respostas 2

1

Esta resposta utiliza o pacote dplyr para filtrar as linhas por data. Mas as datas devem ser objetos de classe "Date" e para isso primeiro cria-se uma coluna temporária, temp_date.

library(dplyr)

inicio <- as.Date("1994-07-01")
fim <- as.Date("2019-12-31")

selic %>%
  mutate(temp_date = paste(1, var_1, var_2),
         temp_date = as.Date(temp_date, "%d %b %Y")) %>%
  filter(temp_date >= inicio, temp_date <= fim) %>%
  select(-temp_date)
1
  • Obrigado, amigo! Vou testar dessa forma! Commented 18/01/2020 às 23:26
0

Solução tidyverse + lubridate:

library(tidyverse)
library(lubridate)

selic %>% 
  mutate(var_0 = '01') %>% 
  unite(data = ., var_0, var_1, var_2, col = 'new', sep = '-', remove = FALSE) %>% 
  mutate(new_date = dmy(new)) %>% 
  filter(new_date >= '1994-07-01' & new_date <= '2019-12-31')

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .