У меня проблема при использовании gganimate
для анимации картограммы, созданной с помощью ggplot2
.
Доступен выбор моих данных здесь и код:
library(tidyverse)
library(gganimate)
part_data <- readRDS(file = "part_data.Rds")
p <- part_data %>%
ggplot(aes(x = long, y = lat, group = group)) +
geom_polygon(aes(fill = confirmed), color = "grey70", size = 0.05) +
coord_map() +
scale_fill_distiller(trans = "log10", direction = 1, palette = "YlOrRd", na.value = "white") +
transition_time(time = date)
animate(p,
fps = 3,
duration = 5,
renderer = gifski_renderer("countyevolution.gif"),
width = 1200, height = 750, res = 100)
, который дает этот GIF:
Возможно, это трудно увидеть, но если вы присмотритесь, вы увидите, что границы между округами колеблются. Этого не происходит, когда я использую transition_manual
без переходов между датами, поэтому он должен исходить из этих переходов. Но почему?
Можно ли как-то сказать gganimate
, чтобы границы оставались неизменными и отображать fill
только для каждого кадра? Или я могу как-то еще сделать границу менее очевидной? Я пытался уменьшить size
, но это, похоже, не имеет значения. Кроме того, границы кажутся немного неровными.