Анимация от начальной точки до конечной точки для каждой «группы» - PullRequest
Новая
       6

Анимация от начальной точки до конечной точки для каждой «группы»

0 голосов
/ 19 января 2019

У меня есть набор координат x, y, df, который я анимирую с помощью gganimate: 

structure(list(event_index = c(1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 
5L, 5L, 6L, 6L, 7L, 7L, 8L, 8L, 9L, 9L, 10L, 10L, 11L, 11L, 12L, 
12L, 13L, 13L, 14L, 14L, 15L, 15L, 16L, 16L, 17L, 17L, 18L, 18L, 
19L, 19L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 23L, 24L, 24L, 25L, 
25L, 26L, 26L, 27L, 27L, 28L, 28L, 29L, 29L, 30L, 30L, 31L, 31L, 
32L, 32L, 33L, 33L, 34L, 34L, 35L, 35L, 36L, 36L, 37L, 37L, 38L, 
38L, 39L, 39L, 40L, 40L, 41L, 41L, 42L, 42L, 43L, 43L, 44L, 44L, 
45L, 45L, 46L, 46L, 47L, 47L, 48L, 48L, 49L, 49L, 50L, 50L, 51L, 
51L, 52L, 52L, 53L, 53L, 54L, 54L, 55L, 55L, 56L, 56L), coords_x = c(80, 
82, 53, 82, 31, 82, -56, -82, -34, -82, -33, -82, -40, -82, 30, 
82, -66, -82, -36, -82, 45, 82, 17, 82, -6, 82, 47, 82, -51, 
-82, -31, -82, -69, -82, -86, -82, -70, -82, 80, 82, 65, 82, 
-76, -82, -71, -82, 81, 82, -57, -82, 80, 82, 75, 82, 77, 82, 
-71, -82, -40, -82, -83, -82, 62, 82, 77, 82, 76, 82, -61, -82, 
69, 82, -45, -82, 68, 82, 31, 82, 58, 82, 61, 82, 80, 82, 34, 
82, 80, 82, -85, -82, -37, -82, -57, -82, 76, 82, 14, 82, 49, 
82, -82, -82, -34, -82, -36, -82, -83, -82, -84, -82, -55, -82
), coords_y = c(-1, 0, 14, 0, -30, 0, 17, 0, 26, 0, -23, 0, -37, 
0, 17, 0, -32, 0, -18, 0, 25, 0, 17, 0, -38, 0, 21, 0, 28, 0, 
22, 0, 17, 0, 13, 0, 10, 0, -37, 0, -17, 0, 9, 0, 18, 0, -11, 
0, 21, 0, -7, 0, 3, 0, 3, 0, -38, 0, 31, 0, 8, 0, -30, 0, -2, 
0, 4, 0, -5, 0, 15, 0, 10, 0, -30, 0, -34, 0, 20, 0, 27, 0, -4, 
0, 8, 0, -18, 0, 19, 0, 32, 0, -21, 0, 0, 0, 40, 0, -4, 0, -30, 
0, -24, 0, -28, 0, -2, 0, -3, 0, 34, 0), event_rinkside = c("R", 
"R", "R", "R", "R", "R", "L", "L", "L", "L", "L", "L", "L", "L", 
"R", "R", "L", "L", "L", "L", "R", "R", "N", "N", "N", "N", "R", 
"R", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "R", "R", 
"R", "R", "L", "L", "L", "L", "R", "R", "L", "L", "R", "R", "R", 
"R", "R", "R", "L", "L", "L", "L", "L", "L", "R", "R", "R", "R", 
"R", "R", "L", "L", "R", "R", "L", "L", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "L", "L", "L", "L", 
"L", "L", "R", "R", "N", "N", "R", "R", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L")), class = c("tbl_df", "tbl", 
"data.frame"), row.names = c(NA, -112L))

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

Например, для event_index = 1 я бы хотел, чтобы точка переместилась с (80, -1) на (82, 0). Для event_index = 2, от (53, 14) до (82, 0) и т. Д.

С точки зрения кода, я пытался transition_states с wrap = FALSE сделать анимацию "перемоткой" в соответствии с этим SO решением . Однако, когда я устанавливаю wrap = FALSE, я получаю сообщение об ошибке:

Ошибка в data.frame (..., check.names = FALSE): аргументы подразумевают разное количество рядов: 111, 100

Вот что я пробовал 

df %>% 
 ggplot(aes(coords_x, coords_y, group = event_index)) +
  geom_point() +
  coord_fixed() +
  xlim(-100, 100) +
  ylim(-45, 45) +
  transition_states(states = event_index, wrap = FALSE)

1 Ответ

0 голосов
/ 06 марта 2019

Вы можете настроить приведенный ниже код, чтобы увидеть, соответствует ли он вашим потребностям.

В целях демонстрации я использовал только первые 10 индексов событий, применил разные цвета для каждого индекса и замедлиланимация для лучшей иллюстрации двух сценариев:

  1. одна и та же точка перемещается из позиции A в позицию B (в пределах одного и того же индекса события);
  2. различные точки исчезают / входят (переход междуиндексы событий).

Не стесняйтесь удалять цветовое отображение и ускорять анимацию для вашего фактического варианта использования. 

p <- df %>%
  filter(event_index <= 10) %>%
  mutate(state = seq(1, n())) %>%

  ggplot(aes(x = coords_x, y = coords_y, group = event_index,
             colour = factor(event_index))) +
  geom_point(size = 5) +
  scale_colour_brewer(palette = "Paired") +

  transition_states(state, transition_length = 3, wrap = FALSE) +

  # fade in for each point associated with a new event_index
  enter_fade() + 

  # cubic for smoother transition between states within each event_index
  ease_aes('cubic-in-out') + 

  # fade out for each point associated with an old event_index
  exit_fade() + 

  # add title to keep track of states
  labs(title = "State: {closest_state}") 

# more frames at a slower fps (defaults are 100 / 10) to observe transitions better
animate(p, nframes = 200, fps = 5)

result

...