如何将时间变量转换为R中的数值变量

Question

我有一个日期格式的文件，其中包含以下格式的日期格式列

4\8    # April 8th, 2013
7\12   # July 12th, 2013

所有这些日期都是 2013 年的默认日期，现在我想创建一个列来指定自 4\1\2013（2013 年 4 月 1 日）以来的天数，对于 4 月 8 日，它是 8。

我应该如何进行？我应该使用填写 2013 作为前缀，然后在 R 中使用 as.Date 函数？但是看来我应该用“/”替换“\”

好的，我想总结一下@rawr的解决方案，以便其他人可以关注

首先，我需要将“\”更改为“//”以读取 R 的格式要求

其次，我需要将2013附加到字符串的末尾，这里的技巧是先执行paste0(dates, "\\")（我自己想出来了！）在执行dates <- paste0(dates, '\\2013')之前确保2013之前有两个“\”，否则2013年之前总是只有一个转义符号。

第三，执行as.Date("6\\\\4\\\\2013", format = '%m\\\\%d\\\\%Y')，或者类似的东西。

Answer 1

\是一个转义字符，所以R不会喜欢4\8，所以你需要使用\\作为单个\

> cat('\\')
\

这是一种方法：

dates
# [1] "4\\8"  "7\\12"
dates <- paste0(dates, '\\2013')
# [1] "4\\8\\2013"  "7\\12\\2013"
as.Date(dates, format = '%m\\%d\\%Y') - as.Date('2013-04-01') + 1
# Time differences in days
# [1]   8 103
as.numeric(as.Date(dates, format = '%m\\%d\\%Y') - as.Date('2013-04-01') + 1)
# [1]   8 103