KY continued

library(hrbrthemes)
library(tidyverse)
##lubridate以d代表day,m代表month,y代表year，透過y-m-d的順序
library(lubridate)
##輸入起始時間和截止時間，用endDate -減去 startDate，
startDate <- dmy("2-Sep-2019")
endDate <- dmy("18-May-2020")
endDate - startDate

## Time difference of 259 days

##%--之間的區間%
startDate %--% endDate

## [1] 2019-09-02 UTC--2020-05-18 UTC

##as.duration(指令對象持續時間)
as.duration(startDate %--% endDate)

## [1] "22377600s (~37 weeks)"

##指定僅以as.period.numeric方法和as.period.interval方法實現的字符串，該字符串指定以時間為單位構建時間單位
as.period(startDate %--% endDate)

## [1] "8m 16d 0H 0M 0S"

##(font_rc)Roboto壓縮字體名稱R變量別名
update_geom_font_defaults(font_rc)