设置日期

Question

我有桌子，

>dt
ID     Date
001   13-Jan-2016
002   2016-01-10
003   15-Jan-2016
004   2016-01-09
005   2016-01-11

而且，我想像我这样制作我的桌子

>dt
    ID     Date
    004   09-Jan-2016
    002   10-Jan-2016
    005   11-Jan-2016
    001   13-Jan-2016
    003   15-Jan-2016

我想为Date变量设置默认值并使其顺序。我该怎么办？ 感谢。

Answer 1

如果您确实使用了两种格式，则可以使用grepl查找字母，并使用ifelse根据结果传递as.Date不同的格式：

as.Date(dt$Date, ifelse(grepl('[a-z]', dt$Date), '%d-%b-%Y', '%Y-%m-%d'))
# [1] "2016-01-13" "2016-01-10" "2016-01-15" "2016-01-09" "2016-01-11"

如果您覆盖dt$Date，则可以使用order进行排序：

dt$Date <- as.Date(dt$Date, ifelse(grepl('[a-z]', dt$Date), '%d-%b-%Y', '%Y-%m-%d'))
dt[order(dt$Date),]

#    ID       Date
# 4 004 2016-01-09
# 2 002 2016-01-10
# 5 005 2016-01-11
# 1 001 2016-01-13
# 3 003 2016-01-15