# R에서는 기본적으로 as.Date() 함수를 써서 일반 텍스트 데이터를 날짜 # 데이터로 변환
as.Date('2020-01-10')
## [1] "2020-01-10"
# 따옴표 없이 쓰면 날짜로 받아들이지 못한다.
#as.Date(2020-01-10)...error
#as.Date(20200110)....error
library(lubridate)
## Warning: 패키지 'lubridate'는 R 버전 4.1.3에서 작성되었습니다
##
## 다음의 패키지를 부착합니다: 'lubridate'
## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, union
# ymd는 연(year) 월(month) 일(day) 순서로 날짜를 입력했다는 뜻
# 월일연 순서로 표시하고 싶을 때는 mdy() 함수를 사용한다.
mdy('January 10th 2020')
## [1] "2020-01-10"
#1982년 3월 27일을 입력하고 싶을 때는 아래처럼 쓰면
ymd('820327')
## [1] "1982-03-27"
# 날짜 데이터 추출하기
# 1982년 3월 27일은 프로야구 역사상 첫 번째 경기
very_first_game_of_kbo <- ymd(820327)
# 연도만 따로 빼고 싶으면 year() 함수
year(very_first_game_of_kbo)
## [1] 1982
# 달만 뽑고 싶을 때는 month()
month(very_first_game_of_kbo)
## [1] 3
# 날짜로 각종 계산하기
very_first_game_of_kbo + 10000
## [1] "2009-08-12"
very_first_game_of_kbo + days(10000)
## [1] "2009-08-12"
very_first_game_of_kbo + months(1000)
## [1] "2065-07-27"
very_first_game_of_kbo + years(38)
## [1] "2020-03-27"
today() - very_first_game_of_kbo
## Time difference of 14666 days