生成视频

# Thu Oct 15 13:37:09 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
rm(list=ls());gc()
# render_movie函数，渲染成动画
require(rayshader)

# 使用av包渲染电影。 使用标准轨道在3D可视化范围内移动摄影机，或接受列出每个摄影机参数的用户定义值的向量。 如果是后者，则值的长度必须等于“帧”（或长度为“ 1”，其中值将是固定的）。
#
filename_movie = tempfile()



montereybay %>%
  sphere_shade(texture="imhof1") %>%
  plot_3d(montereybay, zscale=50, water = TRUE, watercolor="imhof1",
          waterlinecolor="white", waterlinealpha=0.5)

render_movie(filename = filename_movie,)
#默认情况下，此功能以30度的方位角以每秒30帧的速度生成12秒的轨道。
filename_movie = tempfile(pattern = '动画默认.mp4')

#您可以更改为振荡轨道。 放大倍数增加，方位角设置为30。还使用title_text参数添加了标题。


montereybay %>%
  sphere_shade(texture="imhof1") %>%
  plot_3d(montereybay, zscale=50, water = TRUE, watercolor="imhof1",
          waterlinecolor="white", waterlinealpha=0.5)
# Thu Oct 15 14:00:15 2020 --带字母和轨迹控制：
render_movie(filename = '视频2.mp4', type = "oscillate",
            frames = 60,  phi = 30, zoom = 0.8, theta = -90,
            title_text = "Monterey Bay: Oscillating")
# Thu Oct 15 14:02:56 2020 --
filename_movie = '俯视.mp4'

#最后，您可以将自己的一组值作为类型=“ custom”的向量传递给#camera参数。
phivechalf = 30 + 60 * 1/(1 + exp(seq(-7, 20, length.out = 180)/2))
phivecfull = c(phivechalf, rev(phivechalf))
thetavec = -90 + 45 * sin(seq(0,359,length.out = 360) * pi/180)
zoomvec = 0.45 + 0.2 * 1/(1 + exp(seq(-5, 20, length.out = 180)))
zoomvecfull = c(zoomvec, rev(zoomvec))

montereybay %>%
  sphere_shade(texture="imhof1") %>%
  plot_3d(montereybay, zscale=50, water = TRUE, watercolor="imhof1",
          waterlinecolor="white", waterlinealpha=0.5)
#
render_movie(filename = filename_movie, type = "custom",
            frames = 360,  phi = phivecfull, zoom = zoomvecfull, theta = thetavec)
rgl::rgl.close()