先载入数据和ggplot2
d<-read.csv("passingevents.csv")
library(ggplot2)
先绘制一张等高线图,在这里也可以选择不添加散点,不需要的话去掉去掉geom_point()即可
p <- ggplot(d, aes(x=EventOrigin_x, y=EventOrigin_y))
p + geom_point(size=0.6,colour='gray') + stat_density2d(aes(colour=..level..))
再来绘制一张密度图
p+stat_density2d(aes(alpha=..density..), geom="tile",contour=FALSE)
同样的我们可以在这张图上再加上散点
p+ geom_point(size=0.6,colour='gray') +
stat_density2d(aes(alpha=..density..), geom="tile",contour=FALSE)