假设我在R中有一个日期，它的格式如下。
date
2012-02-01
2012-02-01
2012-02-02
在R中是否有办法添加另一列，将星期几与日期相关联?数据集非常大，所以手动进行更改是没有意义的。
df = data.frame(date=c("2012-02-01", "2012-02-01", "2012-02-02"))
所以在加上天数之后，它最终会是这样的:
date day
2012-02-01 Wednesday
2012-02-01 Wednesday
2012-02-02 Thursday
这可能吗?谁能给我指出一个允许我这样做的包? 试着按日期自动生成日期。
当前回答
form注释的JStrahl格式(as.Date(df$date)，"%w")，我们得到当前日期的数字: as.numeric(格式(as.Date(“2016-05-09”)、“% w”))
其他回答
form注释的JStrahl格式(as.Date(df$date)，"%w")，我们得到当前日期的数字: as.numeric(格式(as.Date(“2016-05-09”)、“% w”))
strftime:
当前地区的完整工作日名称
df$day = strftime(df$date,'%A')
使用润滑包和功能:
library(lubridate)
df$date <- as.Date(df$date)
wday(df$date, label=TRUE)
[1] Wed Wed Thurs
Levels: Sun < Mon < Tues < Wed < Thurs < Fri < Sat
假设你想让这一周从周一开始(而不是默认的周日)，那么下面的方法是有用的:
require(lubridate)
df$day = ifelse(wday(df$time)==1,6,wday(df$time)-2)
结果是间隔[0，..，6]中的天数。
如果你想让区间为[1，..7]，使用以下方法:
df$day = ifelse(wday(df$time)==1,7,wday(df$time)-1)
．.． 或者,或者:
df$day = df$day + 1
这应该能奏效
df = data.frame(date=c("2012-02-01", "2012-02-01", "2012-02-02"))
dow <- function(x) format(as.Date(x), "%A")
df$day <- dow(df$date)
df
#Returns:
date day
1 2012-02-01 Wednesday
2 2012-02-01 Wednesday
3 2012-02-02 Thursday
