如何合并和解译字符向量？

Question

我需要通过一系列的计算来跟踪我的数据。

我有以下向量：

start_date <- "2010-11-04"
end_date <- "2010-11-10"

我希望将它们合并成一个字符向量，如下所示

"2010-11-04 to 2010-11-10"

那么我想要的是相反的：

出发地："2010-11-04 to 2010-11-10"返回到原始的两个向量

Answer 1

这不使用任何包：

p <- paste(start_date, "to", end_date)
p
## [1] "2010-11-04 to 2010-11-10"

向另一个方向移动，删除第一个空格之后的所有内容，以获取表示第一个日期的字符串，并删除所有直到最后一个空格的字符串，以获得表示第二个日期的字符串：

sub(" .*", "", p)
## [1] "2010-11-04"
sub(".* ", "", p)
## [1] "2010-11-10"

另一种方法是使用strsplit拆分字符串。

s <- unlist(strsplit(p, " to "))
s
## [1] "2010-11-04" "2010-11-10"

因此，s1是代表第一个日期的字符串，s2是代表第二个日期的字符串。

更新:根据Richard的评论修改了。