r 中具有分类计数和时间的热图数据可视化

Question

我正在尝试创建一个简单的热图，它在 y 轴上有一个非冗余类别字符 (heat$cat) 的列表，在 x 轴上有一个日期/时间。 热度map上的两个自定义 1) headmap梯度反映类别的频率计数（heat$cat），例如1-2=蓝色，3或以上=dark； 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 进行分组并填写零。 Pipe 进入 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()