我在将。csv数据列与工作日转换为数字(以便1 =星期一,2 =星期二,3 =星期三等)时遇到麻烦。我正在尝试使用strptime功能,如下所示:http://www.inside-r.org/r-doc/base/strftime
由于我想将工作日转换为数字,所以我使用了"%u"格式选项。下面是我的代码:
> newweekdaynum <- strptime(SFCrimeData$DayOfWeek, "%u")
其中SFCrimeData是我拥有的一个数据集,其中包含一些犯罪信息。在我运行语句之后没有出现错误,但是当我想要打印"newweekdaynum"时,所有出现的都是一个巨大的值表,所有值都说"NA"。
我做错了什么?
如果您有可以解析为完整日期/日期时间的内容,则可以使用strptime
。它将返回一个datetime对象。那不是你想要的。
你可以使用有序因子:
#some example data
set.seed(42)
x <- factor(sample(c("Monday", "Tuesday", "Wednesday",
"Thursday", "Friday", "Saturday", "Sunday"),
20, TRUE))
# [1] Sunday Sunday Wednesday Saturday Friday Thursday Saturday Monday Friday Friday Thursday Saturday Sunday
#[14] Tuesday Thursday Sunday Sunday Monday Thursday Thursday
#Levels: Friday Monday Saturday Sunday Thursday Tuesday Wednesday
#turn into ordered factor
x <- factor(x, levels = c("Monday", "Tuesday", "Wednesday",
"Thursday", "Friday", "Saturday", "Sunday"),
ordered = TRUE)
#[1] Sunday Sunday Wednesday Saturday Friday Thursday Saturday Monday Friday Friday Thursday Saturday Sunday
#[14] Tuesday Thursday Sunday Sunday Monday Thursday Thursday
#Levels: Monday < Tuesday < Wednesday < Thursday < Friday < Saturday < Sunday
#extract underlying integer values
as.integer(x)
#[1] 7 7 3 6 5 4 6 1 5 5 4 6 7 2 4 7 7 1 4 4
(实际上不需要使其成为有序因子,按正确顺序指定级别的因子就足够了,但工作日在概念上是有序因子。)
df$Date <- as.Date(df$Date)
df$wkdaynum <- format(df$Date,"%u")
df$wkdaynum <- as.numeric(df$wkdaynum)
所以,你的错误是使用strptime()而不是format()。