我有一些数据,如11-01-2011等。但我想添加相应的数据 星期一,星期二等日期。是否有任何R包,其中包含有日期的日期信息?
答案 0 :(得分:60)
weekdays(as.Date('16-08-2012','%d-%m-%Y'))
[1] "Thursday"
答案 1 :(得分:17)
lubridate
包很适合这类东西。
> wday(as.Date('16-08-2012','%d-%m-%Y'))
[1] 5
> wday(as.Date('16-08-2012','%d-%m-%Y'), label=TRUE)
[1] Thurs
Levels: Sun < Mon < Tues < Wed < Thurs < Fri < Sat
> wday(as.Date('16-08-2012','%d-%m-%Y'), label=TRUE, abbr = FALSE)
[1] Thursday
Levels: Sunday < Monday < Tuesday < Wednesday < Thursday < Friday < Saturday
答案 2 :(得分:10)
以下是创建自己的库或例程的一些信息
<强>常量:强>
<强> DAY_OF_MONTH 强>
the day of the month
e.g. if input mm-dd-yyy then dd
<强>月强>:
march = 1
april = 2
may = 3
...
<强>年强>
yy[yy] (last to digits from yyyy)
*subtract 1 if month jan or feb
e.g. if input date is 02-01-2012 (mm-dd-yyyy)
year = (12-1) = 11
<强>世纪强>
[yy]yy (first two digits from yyyy)
e.g. if input year is 2012 then 20 = century
* year 2000, 1900, ... are 20-1, 19-1 respectively
<强>算法强>
step1: floor(century / 4)
step2: year
step3: floor(year/4)
step4: floor(month*2.6 -0.2) #this is the leap year correction
step5: day_of_month
step6: add step1...step5
step7: divide by 7 # modulo 7 in codespeak
step8: the remainder is the day of the week
解释结果:
Sun = 0, Mon = 1, Tues = 3, etc..
不是图书馆,而是作为公共服务的jingle去...
“阅读:你知道的越多”