我正在尝试订购一系列存储在数据框中的时间数据。格式为:
"%Y-%b"
看起来像"2009-Sep"
等。
到目前为止,我已设法找到这种方法:
ds[order(as.Date(ds$yearmonth, format="%Y-%b")),]
但它只按年份排序,然后按月的字母顺序移动,给我订单2009-Jan
,2009-Jul
,2009-Jun
等等。我很困惑这个这不是一个容易解决的问题。
请帮忙......
最佳卡斯帕
答案 0 :(得分:9)
zoo 包中的as.yearmon()
函数(以及"yearmon"
类)是针对此类数据设计的:
dat <- c("2009-Sep","2009-Feb","2009-Jan")
require(zoo)
d2 <- as.yearmon(dat, "%Y-%b")
> sort(d2)
[1] "Jan 2009" "Feb 2009" "Sep 2009"
> order(d2)
[1] 3 2 1
> d2[order(d2)]
[1] "Jan 2009" "Feb 2009" "Sep 2009"
你当然可以每天paste0()
到每个日期,并通过"Date"
强制上课as.Date()
,但as.yearmon()
对我来说更自然:
> as.Date(paste0(dat, "-01"), "%Y-%b-%d")
[1] "2009-09-01" "2009-02-01" "2009-01-01"
请注意,您可以通过将"yearmon"
对象强制转换为类"as.Date"
来生成相同的结果,例如:
> as.Date(d2)
[1] "2009-09-01" "2009-02-01" "2009-01-01"