Формат даты до года-месяца в R

Question

Я хотел бы сохранить свой текущий столбец даты в формате год-месяц в качестве даты. В настоящее время он конвертируется в формат chr. Я пробовал as_datetime, но он приводит все значения к NA. Формат, который я ищу: «2017-01»

library(lubridate)
df<- data.frame(Date=c("2017-01-01","2017-01-02","2017-01-03","2017-01-04",
                       "2018-01-01","2018-01-02","2018-02-01","2018-03-02"),
            N=c(24,10,13,12,10,10,33,45))
df$Date <- as_datetime(df$Date)
df$Date <- ymd(df$Date)
df$Date <- strftime(df$Date,format="%Y-%m")

Заранее спасибо!

Answer 1

lubridate обрабатывают только даты, а даты имеют дни.Однако, как упоминает Алистер, вы можете указать их по месяцам, если вы хотите работать ежемесячно:

library(tidyverse)

df_month <-
  df %>%
  mutate(Date = floor_date(as_date(Date), "month"))

Если вы, например, хотите агрегировать по месяцам, просто group_by() и summarize().

df_month %>%
  group_by(Date) %>%
  summarize(N = sum(N)) %>%
  ungroup()

#> # A tibble: 4 x 2
#>  Date           N
#>  <date>     <dbl>
#>1 2017-01-01    59
#>2 2018-01-01    20
#>3 2018-02-01    33
#>4 2018-03-01    45

Answer 2

Вы можете решить это с помощью функции zoo :: as.yearmon (). Следует решение:

library(tidyquant)
library(magrittr) 
library(dplyr)

df <- data.frame(Date=c("2017-01-01","2017-01-02","2017-01-03","2017-01-04",
                  "2018-01-01","2018-01-02","2018-02-01","2018-03-02"),
           N=c(24,10,13,12,10,10,33,45))
df %<>% mutate(Date = zoo::as.yearmon(Date))