Как я могу превратить этот луч лучей в Gif? - PullRequest
Новая
       36

Как я могу превратить этот луч лучей в Gif?

0 голосов
/ 11 июля 2019

Я сделал эту классную карту с помощью rayhader, чтобы построить график промышленного использования воды в округе. Но я не знаю, как перейти от сюжета, который вы перемещаете с помощью мыши на Gif. Вот код для сюжета не-Gif Rayshader: 

library(tidyverse)
library(devtools)
devtools::install_github("tylermorganwall/rayshader")
library(rayshader)
library(usmap)


water <- read.csv("water.csv", header = TRUE, 
                  check.names = FALSE, 
                  stringsAsFactors=FALSE)

#usmaps needs a fips value
water <- water %>% 
  rename(fips = FIPS)

#"IN-Wtotl" is just total industrial water use
water <- water %>% 
  select("COUNTY","fips","IN-Wtotl")

#Get the 2D map
plotmap <- 
  plot_usmap(data = water,
             values = "IN-Wtotl",
             lines = FALSE,
             labels = FALSE) +
  scale_fill_continuous(high = "#D62828",
                        low = "#252158",
                        na.value= "lightgray",
                        name = "Industrial water use (Mgal/d)",
                        label = scales::comma)+
  theme(legend.position = "right") +
  theme(text = element_text(family="Arial", face="bold"))

#Get the sweet rayshader action
plot_gg(plotmap,multicore = TRUE, width = 7, height = 4, fov = 100, scale = 300, zoom = .25)

Я понятия не имею, куда идти с точки зрения того, чтобы добраться до стадии гифки. У кого-нибудь есть предложения? Документация по этому вопросу не велика, как три страницы github с большим количеством кода и готовыми результатами, не объясняя, что происходит. В любом случае, если кто-то может помочь, это было бы круто.

...