我有一个数据框包含变量名为ID、经度(LON)和纬度(LAT),你可以从这里下载。我使用以下代码使用ggplot2
包在国家地图上绘制了一些经度-纬度,并使用相同的颜色:
library(ggplot2)
library(raster)
read.csv("station.csv")
skorea<- getData("GADM", country= "KOR", level=1)
plot(skorea)
skorea<- fortify(skorea)
ggplot()+
geom_map(data= skorea, map= skorea, aes(x=long,y=lat,map_id=id,group=group),
fill=NA, colour="black") +
geom_point(data=station, aes(x=LON, y=LAT),
colour= "red", alpha=1,na.rm=T) +
scale_size(range=c(2,7))+
labs(title= "coordinate data of seoul",
x="Longitude", y= "Latitude")+
theme(title= element_text(hjust = 0.5,vjust = 1,face= c("bold")))
我得到了以下的绘图结果:
![enter image description here](https://istack.dev59.com/biR2e.webp)