[英]Format Date to Year-Month in R
我想以年月格式保留我当前的日期列作为日期。 它目前被转换为 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")
提前致谢!
lubridate
只处理日期,而日期有天数。 但是,正如 alistaire 所提到的,您可以按每月想要工作的月份来划分它们:
library(tidyverse)
df_month <-
df %>%
mutate(Date = floor_date(as_date(Date), "month"))
例如,如果您想按月聚合,只需group_by()
和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
您可以使用 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))
您可以使用cut
函数,并使用breaks="month"
将日期中的所有天数转换为该月的第一天。 因此,同月内的任何日期在新创建的列中都将具有相同的日期。
这对于按月对数据框中的所有其他变量进行分组很有用(基本上是您要执行的操作)。 但是cut
会创建一个因素,但这可以转换回日期。 因此,您仍然可以在数据框中使用日期类。
你不能摆脱约会中的一天(因为那时,不是约会......)。 之后,您可以为轴或表格创建一个很好的格式。 例如:
true_date <-
as.POSIXlt(
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"
),
format = "%F"
)
df <-
data.frame(
Date = cut(true_date, breaks = "month"),
N = c(24, 10, 13, 12, 10, 10, 33, 45)
)
## here df$Date is a 'factor'. You could use substr to create a formated column
df$formated_date <- substr(df$Date, start = 1, stop = 7)
## and you can convert back to date class. format = "%F", is ISO 8601 standard date format
df$true_date <- strptime(x = as.character(df$Date), format = "%F")
str(df)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.