R语言ggplot2绘制二维数据密度图和等高线图

先载入数据和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)