各位热心朋友，我想绘制如下图所示的热图，
但是我用下面这段代码得到的两幅图都不是很合适，
#load(example.data)
ggplot(example.data, aes( x=date, y=scales, fill=DI) ) +
geom_tile(width=100) +
scale_fill_continuous(type = "viridis")+
labs(title = 'Fig.1')
d <- dcast(example.data, date ~ scales )
d <- d[,-1]
image(x=unique(example.data$date),y=unique(example.data$scales),
z= as.matrix(d), col = heat.colors(81),
xlab='date',ylab='scales',main='Fig.2' )
请朋友们帮忙看看问题出在哪？
还有两个问题需要请教，应该用什么方法上传本代码所需要的数据(example.data是个16152*3的data.table)？另外，本地图片如何上传呢？
谢谢各位
