使用ggplot2绘制地图

Question

我试图在瑞士地图上绘制数据 使用此代码

require("rgdal")
require("maptools")
require("ggplot2")
require("plyr")
require("maps")
require("ggmap")

ggplot() + geom_polygon(data = da, aes(x=long, y = lat)) + 
coord_fixed(1.3)+
geom_point(data=de, aes(x=lat, y=lon), color="orange") 

其中data da是使用swissmap包的地图：

 da<- shp_df[[6]]

＆安培; data de是：

'data.frame':   115 obs. of  5 variables:
 $ FB    : Factor w/ 3 levels "I","II","IV": 2 2 2 3 1 2 1 3 1 1
 $ Nom   : Factor w/ 115 levels "\"Patient Education\" Programm unipolare Depression",..: 9 31 95 112 92 41 70 84 13 21 ...
 $ lon  : num  7.36 8.54 7.08 NA 7.45 ...
 $ lat  : num  46.2 47.4 46.1 NA 46.9 ...
 $ Coûts: int  100000 380000 150000 300000 2544000 300000 1897000 500000 2930000 2400000 ...

我得到了这个结果。  这不是我想要的，我试图在de数据集中的数据位置（某个时间相同的地方）进行绘图。 任何形式的帮助或建议将不胜感激。 谢谢