无障碍色卡做填色

# 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()