R-ggTimeSeries | ggplot2: 热力日历图
时间:2022-07-24
本文章向大家介绍R-ggTimeSeries | ggplot2: 热力日历图,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
我们平常的日历也可以当作可视化工具,适用于显示不同时间段,以及活动事件的组织情况。时间段通常以不同单位显示,例如日、周、月和年。今天我们最常用的日历形式是公历,每个月份的月历由7个垂直列组成(代表每周7天),如图所示。
日历图的主要可视化形式有如图6-2-2所示的两种:以年为单位的日历图(见图6-2-2 (a))和以月为单位的日历图(见图6-2-2 (b))。日历图的数据结构一般为(Date,Value),将Value按照Date(日期)在日历上展示,其中Value映射到颜色。
1. ggTimeSeries绘图
R中ggTimeSeries 包[1]的ggplot_calendar_heatmap()函数可以绘制如图6-2-2(a)所示的日历图,但是不能设定日历图每个时间单元的边框格式。
使用stat_calendar_heatmap()函数和ggplot2包的ggplot()函数可以调整日历图每个时间单元的边框格式,具体代码如下所示。其关键是使用as.integer(strftime())日期型处理组合函数获取某天对应所在的年份、月份、周数等数据信息。
#setwd("D:/R/working_documents1")
library(ggplot2)
library(data.table) # 数据格式依赖
library(ggTimeSeries)
library(RColorBrewer)
# 构造随机数据
set.seed(2134)
dat <- data.table(
date = seq(as.Date("2016-01-01"), as.Date("2019-12-31"), "days"),
ValueCol = runif(1461)
)
dat[, ValueCol := ValueCol + (strftime(date, "%u") %in% c(6,7)*runif(1)*0.75)
][, ValueCol := ValueCol + (abs(as.numeric(strftime(date, "%m")) - 6.5))*runif(1)*0.75
][, ':='(Year = as.integer(strftime(date, "%Y")), # add new column
month = as.integer(strftime(date, "%m")),
week = as.integer(strftime(date, "%W")))] # 添加列
MonthLabels <- dat[, list(meanWkofYr = mean(week)), by = c("month")
][, month := month.abb[month]]
ggplot(data = dat, aes(date = date, fill = ValueCol)) +
stat_calendar_heatmap() +
scale_fill_gradientn(colours = rev(brewer.pal(11, "Spectral"))) +
scale_y_continuous(name = NULL,
breaks = seq(7, 1, -1),
labels = c("Mon", "Tue", "Wed",
"Thu", "Fri", "Sat", "Sun")) +
scale_x_continuous(name = NULL,
breaks = MonthLabels$meanWkofYr,
labels = MonthLabels$month,
expand = c(0,0)) +
facet_wrap(~Year, ncol = 1, strip.position = "right") +
theme(panel.background = element_blank(),
panel.border = element_blank(),
strip.background = element_blank(),
strip.text = element_text(size = 13, face = "plain", color = "black"),
axis.line = element_line(colour = "black", size = 0.25),
axis.title = element_text(size = 10, face = "plain", color = "black"),
axis.text = element_text(size = 10, face = "plain", color = "black"))
2.geom_tile()
使用R中ggplot2包的geom_tile()函数,借助facet_wrap()函数分面,就可以绘制如图6-2-2(b)所示的以月为单位的日历图,具体代码如下所示。
label_mons <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
"Aug", "Sep", "Oct", "Nov", "Dec")
label_wik <- c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
dat19 <- dat[Year == 2017, list(date, ValueCol, month, week)
][, ':='(weekday = as.integer(strftime(date, "%u")), # 周数
yearmonth = strftime(date, "%m%Y"), # 月数
day = strftime(date, "%d")) # 天数
][, ':='(monthf = factor(x = month, levels = as.character(1:12),
labels = label_mons, ordered = TRUE),
weekdayf = factor(x = weekday, levels = 1:7,
labels = label_wik, ordered = TRUE),
yearmonthf = factor(x = yearmonth))
][, ':='(monthweek = 1 + week - min(week)), by = .(monthf)] # 分组聚合
label_mons <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
"Aug", "Sep", "Oct", "Nov", "Dec")
label_wik <- c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
dat19 <- dat[Year == 2017, list(date, ValueCol, month, week)
][, ':='(weekday = as.integer(strftime(date, "%u")), # 周数
day = strftime(date, "%d")) # 天数
][, ':='(monthf = factor(x = month, levels = as.character(1:12),
labels = label_mons, ordered = TRUE),
weekdayf = factor(x = weekday, levels = 1:7,
labels = label_wik, ordered = TRUE))
][, ':='(monthweek = 1 + week - min(week)), by = .(monthf)] # 分组聚合
ggplot(dat19, aes(weekdayf, monthweek, fill = ValueCol)) +
geom_tile(color = "white") +
geom_text(aes(label = day), size = 3) +
scale_fill_gradientn(colours = rev(brewer.pal(11, "Spectral"))) +
facet_wrap(~monthf, nrow = 3) +
scale_y_reverse(name = "Week of the month") +
xlab("Day") +
theme(strip.text = element_text(size = 11, face = "plain", color = "black"),
panel.grid = element_blank())
感谢誉辉优化《R语言数据可视化之美》关于热力日历图的代码
参考:
[1] ggTimeSeries 包的参考网址:http://www.ggplot2-exts.org/ggTimeSeries.html
- JDK9新特性实战:简化流关闭新姿势。
- Druid数据库连接池就是这么简单
- 使用 github 做代码管理,知道这些就够了
- 二叉树就这么简单
- Elasticsearch就是这么简单
- 让 MyBatis Generator 变的更简单
- SpringMVC【参数绑定、数据回显、文件上传】
- SDNLAB技术分享(五):浅谈Open vSwitch移植
- SpringMVC【校验器、统一处理异常、RESTful、拦截器】
- OpenStack与SDN控制器的集成
- 使用机器学习算法对流量分类的尝试——基于样本分类
- 曾经做过的40道程序设计课后习题总结(一)
- 基于ODL与Pica8交换机端到端的限速实验
- SpringBoot就是这么简单
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- Centos安装Python3
- 2.03-handler_openner
- 2.04-proxy-handler
- 图形验证码的识别
- 2.05-random-uesr-proxy
- 5.01-requests_auth
- Git分支操作
- 5.02-requests_proxy
- 5.03-requests_ssl
- 5.04-requests_cookies
- 通过 Node.js 小示例学习浏览器缓存策略
- [未解决]报错: execjs._exceptions.ProgramError: TypeError: Cannot read property 'extend' of undefined
- 5.05-requests_cookies2
- 5.06-re
- Python3爬虫 利用百度地图api得到城市经纬度