首页> R语言教程

R语言绘制地图实例讲解

withpy 2021-05-25

简介这篇文章主要介绍了R语言绘制地图实例讲解,文中代码实例讲解的很清晰,有需要的可以研究下

setwd("C:/Users/75377/Desktop/SHEEP_ROH")
png("12.png",width = 7000,height = 5500,pointsize = 170)
par(mai = c(12,12,12,12),mgp = c(2.1,0.5,0)) 
#地图数据下载http://cos.name/wp-content/uploads/2009/07/chinaprovinceborderdata_tar_gz.zip
library(maptools)
x <- readShapePoly ( 'bou2_4p.shp' )
plot(x,xlim=c(70,138),ylim = c(25, 45), lwd = 12,
   ,panel.first = grid(lwd=10))
axis(1,lwd=20,font = 2,cex.axis=1.3,tcl=-0.3)
axis(2,lwd=20,font = 2,cex.axis=1.3,tcl=-0.3)
axis(3,lwd=20,font = 2,cex.axis=1.3,tcl=-0.3)
axis(4,lwd=20,font = 2,cex.axis=1.3,tcl=-0.3)
box(which = "plot",lwd=20)
library(REmap)
options(remap.ak = "个人秘钥")
city_vec = c("北京","上海","广州","深圳","重庆")
pos <- get_geo_position (city_vec)
pos
points(pos$lon,pos$lat, pch= c(15,16,17,25,18),bg = "green",
    cex=c(1.3,1.3,1.3,1.3,2),
    col=c("red","cyan","blue","green","purple"))
pos$lon <- as.numeric(pos$lon)
pos$lat <- as.numeric(pos$lat)
text(x = pos$lon[1]+2.5, y = pos$lat[1], labels = "AA",
   font = 2,col="red",cex=0.7)
text(x = pos$lon[2]+2.5, y = pos$lat[2], labels = "BB",
   font = 2,col = "cyan",cex = 0.6)
text(x = pos$lon[3]+2.5, y = pos$lat[3]+0.5, labels = "CC",
   font = 2,cex = 0.6,col = "blue")
text(x = pos$lon[4]+2.5, y = pos$lat[4]-0.5, labels = "DD",
   font = 2,cex=0.6,col = "green")
text(x = pos$lon[5]+2.5, y = pos$lat[5], labels = "EE",
   font = 2,cex=0.6,col = "purple")
legend("bottomright",c("AA","BB","CC","DD","EE"),inset = 0.04,
    pch = c(15,16,17,25,18),cex=0.8,text.font = 2,
    col=c("red","cyan","blue","green","purple"),
    pt.bg ="green",box.lwd =15,pt.cex = c(1.2,1.4,1.2,1.2,1.9))
dev.off()

到此这篇关于R语言绘制地图实例讲解的文章就介绍到这了,更多相关R语言绘制地图内容请搜索本站以前的文章或继续浏览下面的相关文章希望大家以后多多支持本站!

相关文章

  • python实现进度条的多种实现

    这篇文章主要介绍了python实现进度条的多种实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧

  • vue keep-alive实现多组件嵌套中个别组件存活不销毁的操作

    这篇文章主要介绍了vue keep-alive实现多组件嵌套中个别组件存活不销毁的操作,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧

  • python 已知一个字符,在一个list中找出近似值或相似值实现模糊匹配

    今天小编就为大家分享一篇python 已知一个字符,在一个list中找出近似值或相似值实现模糊匹配,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧

  • 更新pip3与pyttsx3文字语音转换的实现方法

    今天小编就为大家分享一篇更新pip3与pyttsx3文字语音转换的实现方法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧

  • Laravel如何自定义command命令浅析

    这篇文章主要给大家介绍了关于Laravel如何自定义command命令的相关资料,文中通过示例代码介绍的非常详细,对大家学习或者使用Laravel具有一定的参考学习价值,需要的朋友们下面来一起学习学习吧

  • C#如何通过T4自动生成代码详解

    这篇文章主要给大家介绍了关于C#如何通过T4自动生成代码的相关资料,文中通过示例代码介绍的非常详细,对大家学习或者使用c#具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧