R<-raster(R)                                                                   #读取Raster影像
R_crop<-crop(R,p)   #用shp裁剪Raster
R_mask<-mask(R_crop,p)
writeRaster(R_crop,filename = "tem1994_P_crop1.tif",options="INTERLEAVE=BAND",overwrite=TRUE)#将裁剪的影像保存