《R语言实战》学习笔记---Chapter4(4) 基础数据管理

日期值通常以字符串形式输入到R中，然后转化为数值形式存储的日期变量，进行后续的分析计算。

as.Date函数

函数as.Date()执行这种转换，语法为as.Date(x,"input_format ") ，
其中x 是字符型数据， input_format则给出了用于读入日期的适当格式。

日期格式

as.Date()的默认输入格式是yyyy-mm-dd。

olddates <- c("2012-09-12", "2006-12-09")
newdates <- as.Date(olddates )
> str(olddates)
 chr [1:2] "2012-09-12" "2006-12-09"
> str(newdates)
 Date[1:2], format: "2012-09-12" "2006-12-09"

使用mm/dd/yyyy 的格式读取日期数据。

strDates <- c("01/05/1965", "08/16/1975")
dates <- as.Date(strDates, "%m/%d/%Y")
> str(strDates )
 chr [1:2] "01/05/1965" "08/16/1975"
> str(dates )
 Date[1:2], format: "1965-01-05" "1975-08-16"

处理时间戳的函数

Sys.Date() 可以返回当天的日期， 而date()则返回当前的日期和时间。

> Sys.Date()
[1] "2023-08-08"
> date()
[1] "Tue Aug  8 11:41:44 2023"

使用函数format(x, format="output_format") 来输出指定格式的日期值， 并且可以提取日期值中的某些部分：

> today <- Sys.Date()
> format(today, format="%B %d %Y")
[1] "八月 08 2023"
> format(today, format="%A")
[1] "星期二"

R的内部在存储日期时， 是使用自1970年1月1日以来的天数表示的， 更早的日期则表示为负数。

使用函数difftime() 来计算时间间隔

函数difftime()来计算时间间隔， 并以星期、 天、时、 分、 秒来表示。
常用格式和参数为：

difftime(time1, time2, units = c("auto" , "secs", "mins", "hours", "days", "weeks"))

假如我出生于1993年12月24日，计算截至今天出生多少天了,出生于星期几？。

> today <- Sys.Date()
> birthday <- as.Date("1993-12-24")
> diff <- difftime(today, birthday, units = "days")
> print(diff)
Time difference of 10819 days
> format(birthday, "%A")
[1] "星期五"

将日期转换为字符型变量

以上面的输入并转换后的数据为例进行操作，通过as.character()函数进行。

> today <- Sys.Date()
> str(today)
 Date[1:1], format: "2023-08-08"
> today_str <- as.character(today)
> str(today_str)
 chr "2023-08-08"

其它说明

• 通过help(as.Date)和help(strftime)了解更多字符串转换为日期的细节；

• 通过help(ISOdatetime)了解更多关于日期和时间格式的知识；

• lubridate包可以用于识别和解析日期—时间数据， 抽取日期—时间成分（例如年份、 月份、 日期等） ， 以及对日期—时间值进行算术运算。；

• timeDate包可以用于对日期进行复杂的计算。