带气泡的世界地图——基于R软件

mydata<-read.table("data.csv",header=TRUE,sep=",")

visit.x<-mydata$经度
visit.y<-mydata$纬度

install.packages("ggmap")
library(ggplot2)
library(ggmap)
library(sp)
library(maptools)
library(maps)


mp<-NULL #定义一个空的地图

mapworld<-borders("world",colour = "gray50",fill="white") #绘制基本地图

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

mp2<-mp+geom_point(aes(x=visit.x,y=visit.y,size=mydata$周期2),color="#1d953f",alpha=0.5)+scale_size(range=c(2,9))

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

mp3 #将地图呈现出来