3D设备截图快照到plot面板，以im。。插件包渲染字幕
# Fri Oct 16 00:50:29 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
# render_snapshot函数,截图到plot面板
rm(list=ls());gc()
require(rayshader)
#捕获当前的rgl视图并显示，或者将当前的视图保存到磁盘。
montereybay %>%
sphere_shade() %>%
plot_3d(montereybay,zscale=50,zoom=0.6,theta=-90,phi=30)
render_snapshot() # 截图到plot面板
# 创建一个标题，还要使用...将`gravity`参数传递给magick :: image_annotate。
render_snapshot(title_text = "标题Monterey Bay, California",
title_color = "white", title_bar_color = "black",
title_font = "Helvetica", gravity = "North")
#添加晕影效果
render_camera(zoom=0.8)
render_snapshot(title_text = "Monterey Bay, California",
title_color = "white", title_bar_color = "darkgreen",
vignette = TRUE,
title_font = "Helvetica", gravity = "North")
rgl::rgl.close()
dev.copy(png, "3D设备截图快照到plot面板.png");dev.off()
