R：ggplot2画热度图

2019独角兽企业重金招聘Python工程师标准>>>

> library(reshape2)
> library(ggplot2)
> mymatrix<-matrix(runif(30,min=-0.1,max=0.1),nrow=5,ncol=6)
> colnames(mymatrix)<-c("房地产业","国防军工","建筑业","信息科技业","化工行业","电气工业")
> mymatrix
         房地产业    国防军工      建筑业   信息科技业    化工行业    电气工业
[1,] -0.085724727 -0.05439762 -0.02239555 -0.034122123 -0.06915880  0.02343567
[2,]  0.024749188 -0.08855248  0.02641241 -0.045408533 -0.08644377  0.02015972
[3,]  0.058020560  0.06182446  0.07663317 -0.024530879  0.07593718  0.01692426
[4,] -0.006305735 -0.08288435  0.02140884 -0.039372059 -0.06864554 -0.04277815
[5,] -0.060101370  0.02608878  0.01004945  0.001181824  0.03706699  0.02555530
> fixdata<-melt(mymatrix)
> head(fixdata,10)
   Var1     Var2        value
1     1 房地产业 -0.085724727
2     2 房地产业  0.024749188
3     3 房地产业  0.058020560
4     4 房地产业 -0.006305735
5     5 房地产业 -0.060101370
6     1 国防军工 -0.054397615
7     2 国防军工 -0.088552482
8     3 国防军工  0.061824457
9     4 国防军工 -0.082884352
10    5 国防军工  0.026088781
> p<-ggplot(fixdata,aes(x=Var2,y=Var1,fill=value))+xlab("行业")+ylab("星期")
> p1<-p+geom_tile()
> print(p1)

> p2<-p1+geom_tile(color="white",size=0.1)
> print(p2)

> p3<-p2+scale_fill_gradient(low='green',high='red')
> print(p3)

> p4<-p3+guides(fill=FALSE)
> print(p4)

> p5<-p4+geom_text(aes(label=round(value,3)),angle=45)
> print(p5)

转载于:https://my.oschina.net/u/3093769/blog/847618