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

Question

I am trying to create a simple heatmap that has a list of non-redundant category character (heat$cat) on the y-axis and date/time as the x-axis. Two customization on the heat map 1) The headmap gradient reflect the frequency count of categories (heat$cat),eg 1-2=blue, 3 or above =dark; 2)The total frequency count of (heat$cat) should display on the right hand side of the heatmap.

Here is the dataset, thanks very much for your input!

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

The date format doesn't seem correct.. Anyway, you make it a factor, then use dplyr to group and fill in the zeros. Pipe it into ggplot and use geom_tile() for heatmap:

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()