'How to produce annotated monthly heatmap in R?

I have a dataset similar as follows:

df <- structure(list(Topic = c("Topic_A", "Topic_A", 
                              "Topic_A", "Topic_A", "Topic_A", 
                              "Topic_A", "Topic_A", "Topic_A", 
                              "Topic_A", "Topic_A", "Topic_A", 
                              "Topic_B", "Topic_B", "Topic_B", 
                              "Topic_B", "Topic_B", "Topic_B", 
                              "Topic_B", "Topic_B", "Topic_B", 
                              "Topic_B", "Topic_B"), 
                    month = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 
                                        11L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L), .Label = c("Jan", 
                                        "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", 
                                        "Nov", "Dec"), class = c("ordered", "factor")), N = c(439L, 
                                        291L, 592L, 527L, 336L, 254L, 141L, 137L, 68L, 182L, 125L, 
                                        48L, 111L, 74L, 127L, 55L, 80L, 105L, 129L, 63L, 72L, 82L
                                        )), row.names = c(NA, 22L), class = "data.frame")

And I am using the following code to produce a monthly heatmap, month name on X-axis and Topic name on Y axis:

ggplot(df, aes( month,Topic)) + geom_tile(aes(fill = N),colour = "white") +
  #scale_fill_gradient(low = col1, high = col2) +  
  scale_fill_viridis(name="Hrly Temps C",option ="C")+
  guides(fill=guide_legend(title="Frequency")) +
  labs(title = "Topic Heatmap",
       x = "Month", y = "Topic") +
  theme_bw() + theme_minimal() + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())

Since in my original dataset, topic names are different for almost each month, I would like to annotate each box of heatmap with the topic name against its corresponding month, removing Y-axis in this scenario, and adding text inside the heatmap box for each month.

Any guidance how can I do that?



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source