r - ggmapでヒートマップを描画しますか?

Question

R と ggmaps を使用して、メキシコシティの地図にヒートマップをプロットしたいと考えています。

でマップを作成しました

g.map <- get_map(location = c(lon = -99.1393, lat = 19.3772), 
          zoom = 11, maptype = 'roadmap')
map <- ggmap(g.map)

このように、緯​​度/経度とその地域のツイート数のデータフレームがあります

     x      y    tweets
1 -99.300 19.200   1
2 -99.291 19.209   10
3 -99.282 19.218   2
4 -99.273 19.227   4
5 -99.264 19.236   5
6 -99.255 19.245   9

を使用して、各ツイートを表す点を含むマップを既にプロットできます。

map + geom_point(aes(x=x,y=y,size=c,colour=c),data=tweets.df)

geom_density2dそして、ヒートマップをプロットするために使用できる他の質問を読みましたが、結果は少し奇妙に見えます

それで、私は何を間違っていますか？