• R语言
  • 请教关于热图绘制的问题

各位热心朋友,我想绘制如下图所示的热图,
但是我用下面这段代码得到的两幅图都不是很合适,

#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)?另外,本地图片如何上传呢?

谢谢各位

    fanshenzhang 如果自己没有服务器的话,可以用百度网盘。图片的话,可以用图床,比如先在微博发布图片,然后再复制图片链接,这样就可以用微博充当图床来展示图片了