消除热图colkey中的白线

问题#1:如何删除这些白线?范围应为-100到100。颜色键中只有“0”应为白色。

问题#2:如何删除列标签中的“X”?

这是我的剧本:

library(gplots)
dat <- read.csv("Baguio.csv", header=TRUE)
mat_data<-data.matrix(dat)

my_palette <- colorRampPalette(c("blue","white","red"))(200)
breaks=c(seq(-100,-1,length=100),0,seq(1,100,length=100))

png("heatmap.png",    # create PNG for the heat map
 width = 5*300,        # 5 x 300 pixels
 height = 5*300,
 res = 300,            # 300 pixels per inch
 pointsize = 8)        # smaller font size

heatmap.2(mat_data,
 main = "test", # heat map title
 notecol="black",      # change font color of cell labels to black
 density.info="none",  # turns off density plot inside color legend
 trace="none",         # turns off trace lines inside the heat map
 margins =c(5,5),     # widens margins around plot
 col=my_palette,
 breaks=breaks,
 dendrogram="none",
 symkey=F, xlab="Year", ylab="Date",
 Colv="NA",Rowv="NA")            # turn off column clustering
dev.off()               # close the PNG device

以下是数据链接: Data

我会感谢任何帮助。