r тепловая карта на ggmap по данным кригинга

Я хочу построить тепловую карту на ggmap.

  library(ggmap)
  turku<-get_map('turku', zoom=13)
  turkumap<-ggmap(turku, extent="device", legend="topleft")
  turkumap
  turkumap+geom_density2d(mapping=aes(x = lon, y = lat),data = test, )

Мы провели измерительную кампанию, поэтому у меня есть 4460 точек с географической привязкой.

Чтобы иметь карту прогноза, я создал сетку 400*400, всего 160000 точек, в которой я вычисляю прогноз с помощью кригинга. Чтобы иметь полную картину явления на моих 3 км * 3 км, я думаю, что какая-то тепловая карта необходима, потому что нанесение только точек, если я не делаю ничего неправильного, наносит на карту заполненный квадрат. (См. файл) Код, который я использую для построения точек:

turkumap <- turkumap + geom_point(data=temp, aes(x=lon, y=lat),size=var1.pred)

Таким образом, в основном проблема заключается в том, что точки расположены вдоль дорог, поэтому тепловая карта проблематична (см. ">здесь), и их слишком много, чтобы рисовать их по отдельности. Какие-либо предложения?

Другой связанный с этим вопрос заключается в том, что мои данные находятся в классическом формате gstat, SpatialPointsDataFrame, это означает, что я должен заставить их быть фреймами данных для использования ggplot, есть ли лучшая практика?