那么今天本期推文就使用 ggspatial 包实现指北针和比例尺的添加。 主要涉及的知识点如下: sf包shp文件读取及转换投影 ggplot2 + ggspatial 实现指北针和比例尺的添加 sf 读取shp文件并转换投影 我想经常使用R处理空间数据的小伙伴们对sf包一定特别熟悉 ggspatial 添加指北针和比例尺 我们使用ggspatial包的annotation_scale()和annotation_north_arrow()方法实现这两个重要地图要素的添加。 具体代码如下: library(ggspatial) china_province_gg <- ggplot() + geom_sf(data = china_pro) + 总结 本期推文我们使用ggspatial包、ggplot2包以及sf包的geom_sf()完成另一种指北针和比例尺地图的绘制,希望给大家一些绘制灵感。
然后在ggplot中使用 geom_sf来简单画出非洲地区的轮廓 library(tidyverse) library(sf) library(ggspatial) library(ggthemes) geometry, fill = pop_est)) 屏幕快照 2020-06-29 上午1.48.20.png 指北针 一张标准的地图需要有比例尺,地图及指北针,所以这次我们加上比例尺与指北针,通过ggspatial
, 'Spatial') proj4string(Yun_shp) = CRS("+proj=longlat +ellps=WGS84") library(spatialEco) library(ggspatial , 'Spatial') proj4string(Yun_shp) = CRS("+proj=longlat +ellps=WGS84") library(spatialEco) library(ggspatial
接下来我们进行探索性绘图,主要使用geom_sf() 进行绘制,代码如下: library(ggspatial) ggplot() + geom_sf(data = china,fill="NA" 比例尺和指北针的添加,则是依靠ggspatial包。 散点数据的读取 由于只获得数据经纬度信息,其他数据均为虚构,数据预览如下: ?
论文原文 加载R包 library(tidyverse) library(readxl) library(sf) library(ggspatial) install.packages("devtools
接下来我们进行探索性绘图,主要使用geom_sf() 进行绘制,代码如下: library(ggspatial) ggplot() + geom_sf(data = china,fill="NA" 比例尺和指北针的添加,则是依靠ggspatial包。 散点数据的读取 由于只获得数据经纬度信息,其他数据均为虚构,数据预览如下: ?
接下来我们进行探索性绘图,主要使用geom_sf() 进行绘制,代码如下: library(ggspatial) ggplot() + geom_sf(data = china,fill="NA" 比例尺和指北针的添加,则是依靠ggspatial包。 散点数据的读取 由于只获得数据经纬度信息,其他数据均为虚构,数据预览如下: ?
china_shp) nine_line <- sf::read_sf(nine) 数据预览如下(部分): 接下来我们进行探索性绘图,主要使用geom_sf() 进行绘制,代码如下: library(ggspatial north_arrow_fancy_orienteering) 这里可以看到,我们没有使用常规的WGS84坐标,而是采用 +proj=laea +lat_0=40 +lon_0=104 进行绘制,可视化结果如下: 比例尺和指北针的添加,则是依靠ggspatial
library(cowplot) library(tidyverse) library(ggspatial) library(sf) china = read_sf("https://geo.datav.aliyun.com
针对model="Exp"的结果 首先我们绘制网格数据可视化结果,代码如下: library(sf) library(tidyverse) library(ggspatial) library(RColorBrewer 针对model="Gau"的结果 由于步骤类似,我们这里直接给出代码和绘图结果即可: library(sf) library(tidyverse) library(ggspatial) library(
地图数据 这里我们先看下散点的分布情况,可视化代码如下: #导入主题包 library(sf) library(tidyverse) library(ggspatial) library(RColorBrewer "lat"),crs = 4326,remove = F) 接下里,我们就将结果进行可视化绘制:「网格数据可视化:」 library(sf) library(tidyverse) library(ggspatial
而基于ggplot2 以及拓展包 ggspatial 也是可以绘制的,由于不是很熟悉空间数据的处理,介绍难免不足。大家可以去官网进行查看。当然,你也可以进群讨论哦
ggplot2 可视化IDW插值结果 经过上面的数据规整,我们直接可以进行可视化操作,代码如下: library(sf) library(tidyverse) library(ggspatial) library
"C:/Users/zxs/Desktop") getwd() 加载R包 package.list=c("geoviz","tidyverse","sf","terra","rasterVis","ggspatial
library(tidyverse) library(sf) library(ggspatial) library(ggthemes) library(RColorBrewer) rm(list = ls
接下来,我们将使用sf包进行点位置的可视化绘制,代码如下: library(sf) library(tidyverse) library(ggspatial) library(RColorBrewer)