Making a presentation from your code.
Mark up cells become text slides.
%%R
data(iris)
iris$node <- 1:nrow(iris)
iris_dist <- dist(iris[,1:4])
iris_tree <- hclust(iris_dist)
#The associated table must also specify colours for the internal branches
irisb <- iris[2:150,]
irisb$Species<-NA
irisb$node <- 151:(150+149)
irisb<-rbind(iris,irisb)
tree_plot <- ggtree(iris_tree, layout="radial") %<+% irisb +aes(colour=Species)+
scale_colour_manual(values=c("#c03728","#919c4c","#fd8f24"),na.value="#2b323f")
tree_plot_matrix <- gheatmap(tree_plot, iris[,1:4], font.size=0)+scale_fill_viridis_c(name="")
%%R
tree_plot_matrix
Just press escape.