热图数据可视化与分类计数和时间在R中。

Question

我想创建一个简单的热图，它的y轴是一个非冗余的类别字符列表(heat$cat)，x轴是日期时间。在热图上有两个自定义 1)头图的梯度反映了类别(heat$cat)的频率数，例如1-2=蓝色，3或以上=暗色；2)(heat$cat)的总频率数应该显示在热图的右侧。

这是数据集，非常感谢您的意见!

cat<-c("A","A","A","C","D","E","E","E","F","F")
date<-c("05-05-2020","05-05-2020","05-05-2020","04-05-2020","05-05-2020","04-05-2020","03-05-2020","04-05-2020","04-05-2020","04-05-2020" )
date<-as.Date(format(date, format="%d-%m-%Y"))
heat<-cbind(cat,date)

Answer 1

日期格式似乎不正确。总之，你把它变成一个因子，然后用dplyr来分组并填入零点。把它放到ggplot里，然后用geom_tile()做热图。

library(dplyr)
library(ggplot2)

date <- as.Date(date,"%d-%m-%Y")
data.frame(cat=cat,date=factor(date)) %>% 
count(cat,date,.drop=FALSE) %>% 
ggplot(aes(x=date,y=cat,fill=n)) + geom_tile()