Ошибка анимации гистограммы на последнем графике (gganimate)? - PullRequest
Новая
       131

Ошибка анимации гистограммы на последнем графике (gganimate)?

0 голосов
/ 14 июля 2020

Я создал анимированную линейчатую диаграмму, но значение метки неверно. Я не знаю, почему cum_2 в моих данных является целым числом, но в результирующем gif текст метки отображается как действительное число (например: 674,5 ... вместо 675). 

library(tidyverse)
library(gganimate)
df <- data.frame(date = c(rep('2020-07-08',4), rep('2020-07-09',4), 
                       rep('2020-07-10',4), rep('2020-07-11',4),
                       rep('2020-07-12',4)),
              sub = rep(c("PYTHON", "SQL", "VBA", "R"),5),
              cum_2 =  c(659,609,454,450,659,609,468,450,670,609,478,450,670, 609,486,461,679,609,486,469),
              rank = rep(c(1,2,3,4),5))

fill <- c('red','blue','green','orange')  # example fill colors

df %>% 
  ggplot(aes(rank, y = cum_2, 
             fill = sub)) +
  geom_col(alpha = 0.6)+
  scale_fill_manual(values = fill) +
  geom_text(aes(y = 0, 
                label = paste(sub, " ")), 
            vjust = 0.2, 
            hjust = 1) +
  transition_states(states = date,transition_length = 4, state_length = 1)  +
  geom_text(aes(y = cum_2,
                label = round(cum_2,0), 
                hjust = 0,
                size = 12)) +
  scale_x_reverse() +
  coord_flip(clip = "off", expand = FALSE) +
  guides(color = FALSE, fill = FALSE) +
  theme(axis.line=element_blank(),
        axis.text.x=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        legend.position="none",
        panel.background=element_blank(),
        panel.border=element_blank(),
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        panel.grid.major.x = element_line( size=.1, color="grey" ),
        panel.grid.minor.x = element_line( size=.1, color="grey" ),
        plot.title=element_text(size=25, hjust=0.5, face="bold", colour="grey", vjust=-1),
        plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="grey"),
        plot.caption =element_text(size=8, hjust=0.5, face="italic", color="grey"),
        plot.background=element_blank(),
        plot.margin = margin(2,2, 2, 4, "cm")) +
  labs(title = 'MCI Vietnam : {closest_state}',  
       subtitle  =  "Number of students") +
  view_follow(fixed_x = TRUE) +
  enter_fade() +
  exit_shrink() +
  ease_aes('sine-in-out') -> anim

# gif
animate(anim, nframes = length(unique(df$date)), 
        detail = 5,
        fps = 5,
        # duration = 20,
        renderer = gifski_renderer("file.gif"))

Последний сюжет в файле gif здесь: введите описание изображения здесь

Спасибо всем за то, что прочитали и поддержали меня.

1 Ответ

2 голосов
/ 14 июля 2020

Поскольку позиция y полосок анимируется в анимации (cum_2 в вашем фрейме данных), а позиция и текст метки основаны на cum_2, она также будет анимирована, и в результате вы получите в результате появляются числа с большим количеством десятичных знаков.

К счастью, исправить довольно просто: просто принудительно вычислите метку as.character(). Измените строку geom_text на следующую, и это устранит проблему: 

  geom_text(aes(y = cum_2, label = as.character(round(cum_2,0)), 
                hjust = 0, size = 12))

Вот результат (сохранен с duration=5):

введите описание изображения здесь

* К вашему сведению: в вашем коде отсутствовали цвета, которые вы использовали, поэтому здесь я определил fill=c('red','blue','green','orange').

...