визуализация данных тепловой карты с количеством категорий и временем в r

Question

Я пытаюсь создать простую тепловую карту со списком неизбыточных символов категории (heat $ cat) по оси Y и датой / временем по оси 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()