Manipulated_Data = as.data.frame(table(subset(CelebrityDeath, select= c(Death_Cause,death_year), dnn='Death_Cause')))
p1 <- ggplot(Manipulated_Data, aes(death_year, Death_Cause, fill = Freq)) +geom_tile(size=0) +   theme(text = element_text(size = 12, 
                            family = "Calibri"),
                  plot.title = element_text(hjust = 0.5)) +scale_fill_viridis( discrete = FALSE, option = "D",guide_legend(title="Frequency of Deaths")) + ggtitle("Major reasons for Celebrity Deaths from 2006 to 2016 - (S3644794)") + xlab("Year of Death") + ylab("Reason of Death")

p2 <- ggplotly(p1)
 p2