install.packages("ggplot2")
install.packages("ggmap")
library(ggplot2)
library(ggmap)
library(mapproj)
library(maps)
map<-get_map(location = c(lon = 120.65000, lat = 24.200000),
  zoom = 11, language = "zh-TW", maptype='toner-lite')
ggmap(map)+
geom_point(aes(x= 120.639992,y= 24.154124), color=" red ",size=2)