изменить оси между кадрами - PullRequest
Новая
       8

изменить оси между кадрами

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

Я пытаюсь построить топ-3 игроков НХЛ с течением времени, используя gganimate. В настоящее время у меня есть столбчатая диаграмма, где ось x показывает имена игроков, а ось y показывает количество голов для каждого игрока. Вот статическая версия того, что у меня есть: 

library(ggplot2)

data <- data.frame(name=c("John","Paul","George","Ringo","Pete","John","Paul","George","Ringo","Pete"),
     year = c("1997", "1997", "1997", "1997", "1997", "1998", "1998","1998","1998", "1998"),
     goals = c(50L, 35L, 29L, 5L, 3L, 3L, 5L, 29L, 36L, 51L))

data <- data %>%
  arrange(goals) %>%
  group_by(year) %>%
  top_n(3, goals)

ggplot(data, 
  aes(x = reorder(name, goals), y=goals)) +
  geom_col() +
  facet_wrap(data$year) +
  coord_flip()

enter image description here

Я хочу только отобразить ТОП-3 игроков. Другими словами, игроки, которые входят в тройку лидеров один год, но выбывают из тройки лидеров в следующем году, не должны отображаться во втором кадре. Конечный продукт должен выглядеть примерно так:

https://www.youtube.com/watch?v=nYjpZcPhoqU

1 Ответ

3 голосов
/ 23 октября 2019

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

Хитрость заключается в том, чтобы использовать ранжирование в качестве оси X (или оси Y на перевернутом графике). Таким образом, когда ранги меняются от одного года к другому, положение столбцов тоже меняется. Затем вы можете скрыть метки оси X и создать текстовую метку с geom_text в желаемой позиции (в данном случае ось X).

Одно наблюдение: вы должны использовать эстетику groupвнутри geom_col. Я думаю, что это говорит gganimate, что некоторые фигуры - это одно и то же между кадрами (и, следовательно, они перемещаются соответственно).

Вот мой код: 

library(ggplot2)
library(gganimate)
library(plyr)
library(dplyr)
library(glue)

# I changed your data set a little
data <- data.frame(name=c("John","Paul","George","Ringo","Pete",
                          "John","Paul","George","Ringo","Pete"),
                   year = c("1997", "1997", "1997", "1997", "1997", 
                            "1998", "1998","1998","1998", "1998"),
                   goals = c(50L, 35L, 29L, 5L, 3L, 
                             45L, 50L, 10L, 36L, 3L))

# create variable with rankings (this will be used as the x-axis) and filter top 3
data2 <- data %>% group_by(year) %>%
  mutate(rank = rank(goals)) %>% filter(rank >= 3)

stat.plot <- ggplot(data2) +
  # **group=name** is very important
  geom_col(aes(x=rank, y=goals, group=name), width=0.4) +
  # create text annotations with names of each player (this will be our y axis values)
  geom_text(aes(x=rank, y=0, label=name, group=name), hjust=1.25) +
  theme_minimal() + ylab('Goals') +
  # erase rank values from y axis
  # also, add space to the left to fit geom_text with names
  theme(axis.title.y = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.y = element_blank(),
        plot.margin = unit(c(1,1,1,2), 'lines')) +
  coord_flip(clip='off')

# take a look at the facet before animating
stat.plot + facet_grid(cols=vars(year))

# create animation
anim.plot <- stat.plot + ggtitle('{closest_state}') + 
  transition_states(year, transition_length = 1, state_length = 1) +
  exit_fly(x_loc = 0, y_loc = 0) + enter_fly(x_loc = 0, y_loc = 0)

anim.plot

И это результат:

enter image description here

...