R语言plot函数画等高线图如何改变颜色梯度？

因为中心点选择的问题，出现浅色调的颜色只有一种，没有变化梯度，如何解决，感谢各位大神。

这是代码

plot(predpm_logtsh_tcn ,"contour", xlab="TCN (°C)",exp=T, key.title=title("RR"),cex=5,cex.axis=10,
     plot.axes={axis(1,cex.axis=2)
       axis(2,cex.axis=2)},
     key.axes = axis(4,cex.axis=2),
     nlevels = 100, 
     plot.title=title("Contour plot",xlab="TCN (°C)",ylab="Lag (days)",cex.main=2,cex.lab=2))
dev.off()