R语言ggplot2可视化案例

日历图

仅用到data.table和ggplot2两个依赖包：

library(data.table)
library(ggplot2)

date0 = seq.Date(from=as.Date('2020-01-01'),
                to=as.Date('2020-12-31'), by='1 day')

date = as.POSIXlt(date0)
month = date$mon +1
weekdays = date$wday
mday = date$mday
datx = data.table(date0,month,weekdays,mday)
datx[, week:= as.numeric(format(date,"%W"))]

datx[,`:=`(val = runif(366),
           weekdays = ifelse(weekdays==0, 7, weekdays))]
datx[,monthweek:= week - min(week) + 1,by=.(month)]

datx[,`:=`(month = factor(month,levels=as.character(1:12),