Plotting shapefile points

Question

I'm working on shortest paths and travel time matrices between points (using osrm, OpenStreetMap and rgdal) :

library(osrm)
library(cartography) 
library(OpenStreetMap)
library(rgdal)
library(sp)
library(spatial)
suisse<-readOGR("C:/Users/Firas/Desktop/myrwork","CHE_adm0") 
suisse
regnames <- getTiles(spdf = suisse, type = "osm")
regnames
par(mar=c(0,0,0,0))
plot(suisse, col = NA)
tilesLayer(regnames, add=T)
plot(suisse, add=T, pch = 20, col = 'red', cex = 2) 

when I want to plot points on the map, the result I get is like this

map

Any help would be appreciated thank in you advance