ggplot绘制环形热图加标签

遇到有人问有没有加标签的环形热图，所以花十分钟画了一下，还有很多要调整的地方，需要的自己调整就是

mydata<-data.frame(matrix(rnorm(100),nrow=10))
colnames(mydata)<-seq(1,10,1)
rownames(mydata)<-seq(1,10,1)
mydata$x=seq(1,10,1)

head(mydata)

library(reshape2)
melted_cormat <- melt(mydata,id.vars = c("x"))
head(melted_cormat)
melted_cormat$variable<-as.numeric(melted_cormat$variable)
melted_cormat$point<-"*"

str(melted_cormat)
library(ggplot2)
ggplot(data =melted_cormat, aes(x=x, y=variable, fill=value)) + 
  geom_tile()+ coord_polar() + scale_y_continuous(limits = c(-10, 7)) +  
  geom_text(aes(x = x, y =variable, label = point))+theme_void()+scale_fill_viridis_b()+xlab("")+ylab("")

image.png