绘制空间中连续变量的强度

Question

我试图在空间上绘制连续变量。我认为我应该在其他空间点估计它的强度。我看到这个例子得到了我需要的相同结果。

library("MASS")
library("ggplot2")
library(reshape2) 

DB<-melt(volcano)
ggplot(DB, aes(x=Var1, y=Var2, fill=value)) + geom_point()
ggplot(DB, aes(x=Var1, y=Var2, fill=value)) +geom_tile()

所以我在我的数据上使用了相同的代码：

step<-NULL
step$lat<-c(45.46903, 45.46903 ,45.47195, 45.46902 ,45.46610, 45.45884, 45.47488 ,45.47196, 45.46613 ,45.46320, 45.46318)
step$long<- c(9.192541, 9.195815, 9.195825, 9.199089, 9.199079 ,9.174503 ,9.186013, 9.189277 , 9.182710, 9.189248, 9.199069)
step$z<- c(12153.061 ,13832.401, 17153.554 , 9823.469, 19091.823, 31023.074, 15836.885,11454.056 ,12839.104, 23426.680 ,13096.105)

step<-as.data.frame(step)


ggplot(step,aes(x=long,y=lat,fill=z))+geom_point()
ggplot(step,aes(x=long,y=lat,fill=z))+geom_tile()

我最后的情节是空的！也许问题是我没有足够的积分。