library (ggplot2)

library (reshape2)

setwd("D:/example/")#设定数据的存放路径

data1<-read.csv('a4.csv',header =TRUE)#读取文件

data2<- melt (data1, id="Month")#转化成长数据集

data2$variable= factor(data2$variable, levels=c('EL10_TMP','EL14_TMP','EL18_TMP','EL10_PRE','EL14_PRE','EL18_PRE','EL10_PDSI','EL14_PDSI','EL18_PDSI'))#设置顺序

data2$Month= factor(data2$Month, levels=c('P.Jun','P.Jul','P.Aug','P.Sep','P.Oct','P.Nov','P.Dec','C.Jan','C.Feb','C.Mar','C.Apr','C.May','C.Jun','C.Jul','C.Aug','C.Sep','C.Oct'))## 设置顺序

p1<-ggplot(data2,aes(x=Month,y=variable,fill=value))#热力图绘制

p2<-p1+geom_raster()+ scale_fill_gradient2(low="red", high="darkgreen", mid="white")#填充不同的颜色