无障碍色卡做填色
# Tue Oct 06 23:46:54 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
#个人笔记不负责任
# —— 拎了个梨🍐
rm(list=ls());gc()
# height_shade计算地形颜色图
require(rayshader)
montereybay %>%
height_shade() %>% # 默认映射颜色
plot_map()
montereybay %>%
height_shade() %>%
add_shadow(ray_shade(montereybay,zscale=50),0.3) %>% # 高程
plot_map()
# 调色板:
topo.colors(256)
montereybay %>%
height_shade(texture = topo.colors(256)) %>%
add_shadow(ray_shade(montereybay,zscale=50),0.3) %>%
plot_map()
# 使用无障碍色卡:
require(colorBlindness)
Blue2DarkRed18Steps
montereybay %>%
height_shade(texture = Blue2DarkRed18Steps) %>%
add_shadow(ray_shade(montereybay,zscale=50),0.3) %>%
plot_map()
