R: 时间处理（R自带函数）

###################################################

问题：时间处理    18.4.28

如何用，as.Date()规范日期。计算日期的加减等？？

解决方案：

liang$last_visit <- as.Date(liang$last_visit)

as.Date 输入为向量，as.Date(x, "input_format")其中x是字符型数据，input_format则是 x 的格式说明。

as.Date("10/31/14","%m/%d/%y")

# %d 数字表示的日期（0~31） 例如01~31

# %m 月份（00~12） 例如00~12

# %y 两位数的年份 例如07

# %Y 四位数的年份  例如2007

# %a 缩写的星期名 例如Mon

# %A 非缩写的星期名 例如Monday

# %b 缩写的月份 例如Jan

# %B 非缩写的月份 例如January

# 默认的日期格式为yyyy-mm-dd   "2007-06-22"

Sys.Date()  #[1] "2018-04-28"

Sys.time()  #[1] "2018-04-28 23:51:07 CST"

startdate <- as.Date("2014-01-01");  enddate <- as.Date("2014-10-31");   #设置起始于结束时间。

enddate-startdate     # Time difference of 303 days

difftime(enddate,startdate,units = "weeks")

#Time difference of 43.28571 weeks            以星期“weeks”，天“days”(默认)，时“hours”，分“mins”，秒“secs”来表示。

select_date <- liang[which(liang$last_visit >= startdate & liang$last_visit<= enddate),]   #根据起始和结束时间，筛选出满足时间条件的个案，并拷出子集。

讨论扩展：

as.Date("2014/10/31")  #[1] "2014-10-31"  自动变成默认格式

as.Date("10/31/14","%m/%d/%y")  #[1] "2014-10-31"  格式最后为小写的y，只取年份的前两个数字，反例如下：

as.Date("10/31/2014","%m/%d/%y")  #[1] "2020-10-31"    这是反例

as.Date("10/31/1990","%m/%d/%Y")  #[1] "1990-10-31" 最后为大写的Y 才行，，第二个参数为日期格式的说明。

另请参阅：