library(reshape2)library(ggplot2)set.seed(10)data <- rnorm(100)dim(data) <- c(10,10)md <- melt(data)md$lb<-sprintf('%.2f',md$value)p<-ggplot(md,aes(Var1,Var2,label=lb))+ geom_text(aes(color=value,size=value))+ scale_color_distiller(palette='Accent')+ scale_size_continuous(range=c(4,9))+ theme_minimal()+ labs(x='',y='')p