install.packages("rgdal")
map<-rgdal::readOGR("../../practice/中国地图数据/bou2_4p.shp")
library(maps)
plot(map)
table(iconv(map$NAME))
plot(map[1,])
map_df<-fortify(map)
ggplot(data=map_df)+
geom_polygon(aes(x=long,y=lat,group=group),
fill="white",color="gray")
name<-c("杭州","上海","成都")
latitude<-c(30.27415,31.23037,30.5702)
longitude<-c(120.15515,121.4737,104.06476)
num<-c(100,70,60)
df<-data.frame(name,latitude,longitude,num)
ggplot(data=map_df)+
geom_polygon(aes(x=long,y=lat,group=group),
fill="white",color="gray")+
geom_point(data=df,aes(x=longitude,y=latitude,
color=name),size=5)+
theme_bw()+
theme(axis.text = element_blank(),
axis.ticks = element_blank(),
axis.title = element_blank(),
panel.border = element_blank(),
legend.title = element_blank(),
legend.position = c(0.2,0.2),
legend.background = element_blank())
Figure1
Figure2
Figure3
Figure4
尝试向地图上添加箭头用来展示方向,但是图片一直显示不出来,暂时不知道如何解决。
ggplot2添加箭头https://ggplot2.tidyverse.org/reference/geom_segment.html
重复文章3的时候遇到了文章中提到的问题,提示用自己的百度API.用到的时候再来搜索如何设置API吧!