# Thu Sep 24 14:49:46 2020 -
# 字符编码:UTF-8
# R 版本:R x64 4.0.2
# cgh163email@163.com
#个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
rm(list=ls());gc()
require(raster)
# Thu Sep 24 14:49:48 2020 ---scalebar标尺---------------------------
f <- system.file("external/test.grd", package="raster")
r <- raster(f)
plot(r)
scalebar(1000)
scalebar(1000, xy=c(178000, 333500), type='bar', divs=4)
# Thu Sep 24 14:51:49 2020 --diy,sp添加比例尺----------------------------
map.gz <- read.geoShape('https://geo.datav.aliyun.com/areas_v2/bound/440100_full.json')
plot(map.gz,main='sp对象添加比例尺')
map.gz
scalebar(10)
scalebar(100,
xy = click(),
type = 'bar',
below = '文字备注',
lonlat = T,
adj = c(2.5,-2),
# label = c(2,4,3),
lwd = 5,
divs = 4) # 手动放置比例尺
# divs条形类型的分割数。 2或4
# xy x和y坐标以放置绘图。 可以为NULL。 使用xy = click()使其互动
# type
# "line" or "bar"
# below
# 文字移至比例尺下方(即“公里”)
# lonlat
# 逻辑或NULL。 如果符合逻辑,则TRUE表示绘图是否使用经度/纬度坐标。 如果为NULL,则从图的坐标中猜测
# adj
# 调整文字位置
# label
# 三个数字的向量,用于标记比例尺(起点,中点,终点)
# lwd
# “线”型比例尺的线宽
R语言,raster包,scalebar函数标尺比例尺图例
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...