如何在 R 中的日期中仅转换数字年份？

Question

我有一个包含年份数字列的数据框，但我想将其转换为年份日期。

我的数据框

library(tidyverse)
    
date2<-c('01/01/2000','08/08/2000','16/03/2001')
name<-c('A','B','C')
    
df<-data.frame(date2,name)

但是当我执行命令时 mutate:

df2<-df%>%
  mutate(date2=dmy(date2))%>%
  mutate(Year2=year(date2))

str(df2)

'data.frame':   3 obs. of  3 variables:
 $ date2: Date, format: "2000-01-01" "2000-08-08" "2001-03-16"
 $ name : chr  "A" "B" "C"
 $ Year2: num  2000 2000 2001

但我希望 Year2 是日期而不是数字。

如何解决？

Answer 1

您可以使用 round_date、[EDIT] 或更好的方法 floor_date 来四舍五入到年初（请参阅下面的评论和答案）：

library(lubridate)

df2 <- df %>%
  mutate(date2 = dmy(date2)) %>%
  mutate(year_internal = round_date(date2,'year')) %>%
  mutate(year_out = format(year_internal,'%Y'))

df2 %>% select(date2, name, year_internal, year_out)

       date2 name year_internal year_out
1 2000-01-01    A    2000-01-01     2000
2 2000-08-08    B    2001-01-01     2001
3 2001-03-16    C    2001-01-01     2001

Answer 2

我验证了 round_date() 带来了问题，因为它租用了 2000 年到 2001 年的日期，这可能是统计中的一个问题。

根据另一个 post 我找到了同年的 floor_date()。

date2<-c('01/01/2000','08/08/2000','16/03/2001')
name<-c('A','B','C')

df<-data.frame(date2,name)

df2 <- df %>%
  mutate(date2 = dmy(date2)) %>%
  mutate(year_date = floor_date(date2,'year'))

df2

看到 200-08-08 现在四舍五入到 2000 年

date2<date> name<chr> year_date<date>
2000-01-01  A   2000-01-01      
2000-08-08  B   2000-01-01      
2001-03-16  C   2001-01-01

如何在 R 中的日期中仅转换数字年份？

how to convert numeric only year in Date in R?

r

date

lubridate