R语言,rayshader包，render_compass，函数添加指南针

添加指南针
多个指北针
设定xyz方位和高质量渲染
设定边距
设定颜色和固定距离方位
设定指南针大小半径
指向光源
# Wed Oct 14 11:20:50 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
rm(list=ls());gc()
# render_compass函数添加指南针，默认情况下位于右下角（SE）
require(rayshader)
require(rayshader)

montereybay %>%
  sphere_shade() %>%
  plot_3d(montereybay,theta=-45,zscale = 200, water=TRUE)
render_compass() #  添加指南针
render_snapshot() # 预览

dev.copy(png, "设定颜色和固定距离方位.png", width = 400, height = 400);dev.off() # 保存当前显示的图像


#将N指向灯光，呈315度：
render_compass(angle = 315)
render_snapshot()
render_compass(clear_compass = TRUE)

#  我们可以通过指定方向（这里是三个）来更改位置：
render_camera(theta=45,phi=45)
render_compass(position = "NW")
render_compass(position = "E")
render_compass(position = "S")
render_snapshot()
render_compass(clear_compass = TRUE)

#  我们也可以通过设置scale_distance参数来改变到边缘的距离。
render_compass(position = "NW", scale_distance = 1.4)
render_compass(position = "E", scale_distance = 1.4)
render_compass(position = "S", scale_distance = 1.4)

#Zoom in slightly:
render_camera(theta=45,phi=45,zoom=0.7)
render_snapshot()
render_compass(clear_compass = TRUE)

#  我们也可以直接用`compass_radius`指定半径大小：
render_camera(theta=0,phi=45,zoom=1)
render_compass(position = "N", scale_distance = 1.5, compass_radius=200)
render_compass(position = "E", scale_distance = 1.4, compass_radius=50)
render_compass(position = "S", scale_distance = 1.3, compass_radius=25)
render_compass(position = "W", scale_distance = 1.2, compass_radius=10)
render_snapshot()
render_compass(clear_compass = TRUE)

#我们还可以通过指定所有x，y和z参数来手动调整位置。
render_camera(theta=-45,phi=45,zoom=0.9)
render_compass(x = 150, y = 50, z = 150)
render_snapshot()

# 指南针支持也包含在render_highquality（）中
render_highquality(clamp_value=10)
render_compass(clear_compass = TRUE)

#  我们可以更改指南针的颜色，也可以使用＃`position_circular = TRUE`将其设置为恒定距离：
render_camera(theta=0,phi=45,zoom=0.75)
render_compass(position = "N", color_n = "#55967a", color_arrow = "#fff673",
               color_background = "#cfe0a9", color_bevel = "#8fb28a", position_circular = TRUE)
render_compass(position = "NE", color_n = "black", color_arrow = "grey90",
               color_background = "grey50", color_bevel = "grey20", position_circular = TRUE)
render_compass(position = "E", color_n = "red", color_arrow = "blue",
               color_background = "yellow", color_bevel = "purple", position_circular = TRUE)
render_compass(position = "SE", color_n = c(0.7,0.5,0.9), color_arrow = c(0.8,0.8,1),
               color_background = c(0.2,0.2,1), color_bevel = c(0.6,0.4,0.6),
               position_circular = TRUE)
render_compass(position = "S", color_n = "#ffe3b3", color_arrow = "#6a463a",
               color_background = "#abaf98", color_bevel = "grey20", position_circular = TRUE)
render_compass(position = "SW", color_n = "#ffe3a3", color_arrow = "#f1c3a9",
               color_background = "#abaf98", color_bevel = "#66615e", position_circular = TRUE)
render_compass(position = "W", color_n = "#e9e671", color_arrow = "#cbb387",
               color_background = "#7c9695", color_bevel = "#cbb387", position_circular = TRUE)
render_compass(position = "NW", color_n = c(0.7,0,0), color_arrow = c(0.3,0,0),
               color_background = c(0.7,0.5,0.5), color_bevel = c(0.2,0,0), position_circular = TRUE)
render_snapshot(clear=TRUE)

## End(Not run)