ggannimate - основание переходной последовательности на четверть - PullRequest
Новая
       22

ggannimate - основание переходной последовательности на четверть

0 голосов
/ 14 апреля 2020 
library(lubridate)
library(gganimate)
library(dplyr)
library(ggplot2)

data("crime")

#creating test data and getting quarter
TestData <- crime %>%
  mutate(Quarter_year = floor_date(time, unit = 'quarter'),
         Quarter_year = as.Date(Quarter_year)) %>%
  group_by(Quarter_year) %>%
  tally() 

#Creating a simple bar graph
Graph <- TestData %>%
  ggplot(aes(x = Quarter_year, y = n))+
  geom_bar(stat = "identity") +
  coord_flip()+
  theme_minimal()

Animated_Graph <- Graph+
  transition_time(Quarter_year)+
  ggtitle("Test: {frame_time}")

animate(Animated_Graph)

Используя отличный пакет gganimate, я хочу установить время кадра, основываясь на квартале дат.

Однако, когда я прохожу время перехода, анимация создает кадр для каждого дня между кварталами, даже если их нет в наборе данных 

transition_time(Quarter_year)+
  ggtitle("Test: {frame_time}")

Можно ли сохранить переход использовать только даты, которые появляются в наборе данных?

Спасибо.

...