1

Eu tenho um dataframe df com duas colunas: Numero e Data.

df = data.frame(numero = c("10", "20", "30", "40", "50"), data = c("2021-10-01", "2021-10-02", "2021-09-01", "2021-09-01", "2021-08-01"))

Preciso criar uma tabela com a quantidade de registros por mês com base nos valores destas colunas. Ficaria assim:

Mes Quantidade
Ago 1
Set 2
Out 2

5
  • Tem dois valores diferentes para oububro. Assim, a tabela desejada não pode ser elaborada. Poderia verificar?
    – neves
    Commented 16/06/2021 às 12:48
  • 1
    Poderia explicar melhor? No caso o data frame terá valores diferentes mesmo para cada mês, o que importa no caso, seria quantas vezes o mês se repetiu. A coluna quantidade não é um somatório da coluna Numero, mas uma contagem de vezes que aquele mês se repetiu. Commented 16/06/2021 às 12:59
  • A sim, entendi.
    – neves
    Commented 16/06/2021 às 13:00
  • Eu usei a função months para obter o mês da coluna Data, mas não consigo evoluir deste ponto. df$mes = months(df$Data, abbreviate = FALSE ) Commented 16/06/2021 às 13:05
  • Editei a resposta.
    – neves
    Commented 16/06/2021 às 13:06

2 Respostas 2

2

Com dplyr e lubridate você pode fazer assim:

library(dplyr)
library(lubridate)

df %>% 
  mutate(.data = ., across(.cols = data, .fns = ~ ymd(.))) %>% 
  mutate(.data = ., across(.cols = data, .fns = ~ month(., label = TRUE))) %>% 
  group_by(data) %>% 
  summarise(count = n())

#  data  count
#  <ord> <int>
#1 ago       1
#2 set       2
#3 out       2
2
  • Note que coloquei os argumentos das funções caso queira explicações sobre como isso funcionou.
    – neves
    Commented 16/06/2021 às 13:07
  • 1
    Obrigado, entendi perfeitamente o código. Commented 16/06/2021 às 13:18
1

Com R base

df$Mes <- format(as.Date(df$data), "%B")  # ou %m para mês como número

table(df$Mes)
#>
#>   agosto  outubro setembro
#>        1        2        2

Pode usar as.data.frame(table(...)) se precisa como data.frame.

Com dplyr

library(dplyr)

df %>% mutate(Mes = format(as.Date(df$data), "%B")) %>%
       group_by(Mes) %>%
       summarise(Quantidade = n())
#>     # A tibble: 3 x 2
#>   Mes      Quantidade
#>   <chr>         <int>
#> 1 agosto            1
#> 2 outubro           2
#> 3 setembro          2

Com data.table

library(data.table)

setDT(df)

df[, Mes := month(data)][, .(Quantidade = .N), Mes]
#>    Mes Quantidade
#> 1:  10          2
#> 2:   9          2
#> 3:   8          1

month faz parte do data.table. É equivalente à lubridate::month, mas não possui opção de exibir mês como nome.

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 .