如何将rayshader地图转换为mp4视频,同时在动画中保留标签、指南针和标题?

问题描述 投票:0回答:1

感谢这个精彩的 教程 我製作了一張3D地圖的gif圖,以顯示威靈頓市中心的海平面上升12公尺的情況 !

地图的截图。

现在我想知道是否可以在视频中保留标签,标尺和指南针,用 "render_movie "功能创建?我一直在寻找许多教程,但至今没有成功 ! 谁能帮我解决这个问题?

#GENERATE MP4:

n_frames <- 1080 
waterdepths <- transition_values(from = 0, to = 12.3, steps = n_frames) 

# video transition variables

theta <- transition_values(from = -45, to = 180, steps = n_frames, one_way = TRUE, type = "lin")
phi <- transition_values(from = 40, to = 10, steps = n_frames, one_way = TRUE, type = "cos")
zoom <- transition_values(from = 0.8, to = 0.3, steps = n_frames, one_way = TRUE, type = "cos")

library(av)

zscale <- 2
elev_matrix %>% 
  sphere_shade(sunangle = 270, texture = "imhof1", zscale = zscale) %>%
  add_water(detect_water(elev_matrix), color = "imhof4") %>%
  add_shadow(ambient_shade(elev_matrix, zscale = zscale), 0.5) %>%
  add_shadow(ray_shade(elev_matrix, zscale = zscale, lambert = TRUE), 0.5) %>%
  add_overlay(overlay_img, alphalayer = 0.8) %>%
  plot_3d(elev_matrix, solid = TRUE, shadow = TRUE, zscale = zscale, 
          water = TRUE, watercolor = "imhof3", wateralpha = 0.8, 
          waterlinecolor = "#ffffff", waterlinealpha = 0.5,
          waterdepth = waterdepths/zscale, windowsize = c(1500, 1250))

render_label(elev_matrix, x = 700, y = 650, z = 1500, 
             zscale = 4, text = "Wellington", linecolor="black", freetype=FALSE)

render_label(elev_matrix, x = 1405, y = 1190, z = 800, 
             zscale = 4, text = "Mount Victoria", textcolor = "black", linecolor="darkred",dashed = TRUE, freetype=FALSE)

render_scalebar(limits=c(0, 5, 10),label_unit = "km",position = "W", y=50,
                scale_length = c(0.33,1))

render_compass(position = "E")


render_movie(
  filename = "wellington.mp4", type = "custom",
  frames = 1080,
  phi = phi,
  theta = theta,
  zoom = zoom
)

不幸的是,我只能用这最后一部分代码得到一个漂亮的威灵顿周围的场景(但没有标签,也没有海平面上升...) :(

r gis rayshader
1个回答
0
投票

问题解决了(确保ffmpeg路径设置良好)。

代码:


#generate mp4
n_frames <- 1080 
waterdepths <- transition_values(from = 0.5, to = 12.3, steps = n_frames) 

#video transition variables
theta <- transition_values(from = -15, to = 180, steps = n_frames, one_way = FALSE, type = "lin") 
phi <- transition_values(from = 40, to = 15, steps = n_frames, one_way = FALSE, type = "cos")
zoom <- transition_values(from = 0.8, to = 0.3, steps = n_frames, one_way = FALSE, type = "cos") 


library(av)
zscale <- 2
elev_matrix %>% 
  sphere_shade(sunangle = 270, texture = "imhof1", zscale = zscale) %>%
  add_shadow(ambient_shade(elev_matrix, zscale = zscale), 0.5) %>%
  add_shadow(ray_shade(elev_matrix, zscale = zscale, lambert = TRUE), 0.5) %>%
  add_overlay(overlay_img, alphalayer = 0.8) %>%
  plot_3d(elev_matrix, solid = TRUE, shadow = TRUE, zscale = zscale, 
  windowsize = c(1200, 1000))   


render_label(elev_matrix, x = 700, y = 650, z = 1500, 
             zscale = 2, text = "Wellington", linecolor="black", freetype=FALSE)

render_label(elev_matrix, x = 1405, y = 1190, z = 800, 
             zscale = 2, text = "Mount Victoria", textcolor = "black", linecolor="darkred",dashed = TRUE, freetype=FALSE)



for(i in 1:1080) {

render_water(elev_matrix, watercolor = "lightblue", wateralpha = 0.8, 
               waterlinecolor = "#ffffff", waterlinealpha = 0.5,
               waterdepth = waterdepths[i]/zscale)

render_camera(theta=theta[i], phi=phi[i], zoom=zoom[i])

render_snapshot(filename = sprintf("welli%i.png", i), 
                title_text = "Wellington, New Zealand | Imagery: ESRI_Imagery | DSM: 1m, source: Open Topography",
                title_bar_color = "#1f5214", title_color = "white", title_bar_alpha = 1)
}
rgl::rgl.close()


av::av_encode_video(sprintf("welli%d.png",seq(1,1080,by=1)), framerate = 30,
                   output = "wellington.mp4")

© www.soinside.com 2019 - 2024. All rights reserved.