Исправление анимированной карты - PullRequest
Новая
       34

Исправление анимированной карты

1 голос
/ 18 октября 2019

Я делаю последние штрихи на анимированной карте, над которой я работаю;ниже приведен общий код: 

library(ggmap)
library(lubridate)
library(ggplot2)
library(dplyr)
library(data.table)
library(ggrepel)
library(tidyverse)
library(tibble)
library(gganimate)
library(gifski)
register_google(key = )

file <- file.choose(new = TRUE)
origAddress <- read.csv(file name, header = TRUE, stringsAsFactors = FALSE)

Minneapolis <- ggmap(get_googlemap(center = c(lon = -93.2638397, lat = 44.979969),
                                   zoom = 12, scale = 2,
                                   maptype = "terrain",
                                   color = "color"))

Properties <- data.frame(origAddress)
Properties

ghost_points_ini <- tibble(
  Closing.Date = as.numeric(2004/8),
  lon = 0, lat = 0)
ghost_points_fin <- tibble(
  Closing.Date = seq(as.numeric(2019/10),
                     as.numeric(2023/10),
                     by = "Year"),
  lon = 0, lat = 0)

Final_View <- Minneapolis + geom_point(aes(x = lon, y = lat, color = Year), data = Properties, size = 1) +
  geom_point(aes(x = lon, y = lat, size = 1),                
             data = ghost_points_ini, alpha = 0) +
  geom_point(aes(x = lon, y = lat, size = 1),
             data = ghost_points_fin, alpha = 0) +
  transition_time(Year) +
  shadow_mark(past = TRUE) +
  labs(title = "title")

animate(Final_View, nframes = 500)

Есть четыре вещи, которые не совсем так, как я надеялся, и у меня возникают проблемы с их исправлением, независимо от того, сколько я возиться и гуглить,поэтому любые советы или указания в правильном направлении будут полезны:

Во-первых, карта анимируется по годам, поэтому точки отображаются в зависимости от года, в котором произошли события. Однако я надеялся, что они просто появятся, но что-то в моем коде заставляет их «двигаться» из предыдущих событий, а не просто появляться. Есть ли что-то, что мне нужно добавить в мой код, чтобы сделать так, чтобы каждая точка появлялась вместо трасс?

Во-вторых, на стороне карты находится легенда о цветах, но над ней есть еще одна легенда, котораятолько один белый квадрат с надписью «Размер». Как я могу избавиться от этого?

В-третьих, на данный момент у меня есть стандартное название, которое не меняется при анимировании карты по годам, но я хочу изменить это так, чтобы с каждым годомменяет название на этот год. Я думал, что создание моего кода: 

labs(title = "{Year}")

позволит мне сделать это, но выполнение вышеприведенного кода, похоже, полностью меняет всю мою анимацию, так что она даже не появляется, когда я ее вызываю. Как насчет вышесказанного, я ошибаюсь?

И в-четвертых, я пытался включить в код некоторые точки до и после того, как начали добавляться «реальные» точки, чтобы была пауза, особенно вконец. Для паузы в конце я добавил бит ghost_points_fin, но это не делает карту паузой, чтобы люди могли увидеть конечный продукт в течение нескольких секунд. Неправильно ли введен номер seq?

Спасибо за любую помощь.

...