“ljs.csv”的檔案內容:

mydata<-read.table("ljs.csv",header=TRUE,sep=",")  #匯入自己的名字為“ljs.csv”檔案

visit.x<-mydata$longitude

visit.y<-mydata$latitude #資料準備

library(ggplot2)

library(ggmap)

library(sp)

library(maptools)

library(maps)

mp<-NULL #定義一個空的地圖

mapworld<-borders("world",colour = "gray50",fill="white") #繪製基本地圖

mp<-ggplot()+mapworld+ylim(-60,90)

#利用ggplot呈現，同時地圖縱座標範圍從-60到90

mp2<-mp+geom_point(aes(x=visit.x,y=visit.y,size=mydata$number),color="darkorange")+scale_size(range=c(1,1))

#繪製帶點的地圖，geom_point是在地圖上繪製點，x軸為經度資訊，y軸為緯度資訊，size是將點的大小按照收集的個數確定，color為暗桔色，scale_size是將點變大一些

mp3<-mp2+theme(legend.position = "none") #將圖例去掉

mp3 #將地圖呈現出來
 

下圖為結果展示