Сюжетная карта с использованием 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.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 ...

Я получил этот результат. Это не то, что я хочу, я пытаюсь нанести на место (иногда в том же месте) данные в наборе данных. Любые виды помощи или советы будут оценены. благодарю вас