Почему gganimate неправильно упорядочивает строки по дате с transition_reveal?

Это не ответ как таковой. Вот почему. Вам придется сказать мне, что вы предпочитаете, учитывая эту информацию, чтобы я дал вам решение.

Я попробовал несколько вещей, каждая из которых, как я была уверена, сработает, но не сработала. Итак, я хотел посмотреть, что происходит в ggplot. Моя догадка оказалась верной. Ваши данные в порядке value_yr в png, а не year.

Я повторяю этот вопрос в конце:

Either you can put the animation in order of value_yr or you can put the color in ggplot in order by year. Which would you prefer?

Откуда я знаю? Я извлек назначенные цвета в объекте.

tellMe <- ggplot_build(temp)$data[[1]]
head(tellMe)
#    colour x           y group PANEL flipped_aes size linetype alpha
# 1 #1E60A4 1 -1.75990067     1     1       FALSE  0.6        1    NA
# 2 #1E60A4 2 -0.08968196     1     1       FALSE  0.6        1    NA
# 3 #1E60A4 3 -0.69657130     1     1       FALSE  0.6        1    NA
# 4 #1E60A4 4 -0.10777727     1     1       FALSE  0.6        1    NA
# 5 #1E60A4 5  1.57710505     1     1       FALSE  0.6        1    NA
# 6 #1E60A4 6  1.63277369     1     1       FALSE  0.6        1    NA 

gimme <- tellMe %>% group_by(group) %>% 
  summarise(color = unique(colour)) %>% 
  print(n = 100) # there are less than 100, I just want them all

head(gimme)
# # A tibble: 6 × 2
#   group color  
#   <int> <chr>  
# 1     1 #1E60A4
# 2     2 #114781
# 3     3 #175290
# 4     4 #053061
# 5     5 #1C5C9E
# 6     6 #3E8BBF 

Для меня это указывало на то, что цвета не были в групповом порядке, поэтому я хотел увидеть цвета, чтобы визуализировать порядок.

Я использовал эту функцию. Я знаю, что это из демо, но не помню из какого. Я искал, чтобы включить это сюда, но не нашел.

# this is from a demo (not sure which one anymore!
showCols <- function(cl=colors(), bg = "lightgrey",
                     cex = .75, rot = 20) {
  m <- ceiling(sqrt(n <-length(cl)))
  length(cl) <- m*m; cm <- matrix(cl, m)
  require("grid")
  grid.newpage(); vp <- viewport(w = .92, h = .92)
  grid.rect(gp=gpar(fill=bg))
  grid.text(cm, x = col(cm)/m, y = rev(row(cm))/m, rot = rot,
            vp=vp, gp=gpar(cex = cex, col = cm))
}

showCols(gimme$color)

Верхний левый цвет — это самый старый год, значение под ним — следующий год и так далее. Самый последний год — это нижнее значение в крайнем правом столбце.

df %>% group_by(yr) %>% summarise(value_yr = unique(value_yr))
# they are in 'value_yr' order in ggplot, not year
# # A tibble: 71 × 2
#       yr value_yr
#    <int>    <dbl>
#  1  1950  0.0380 
#  2  1951 -0.215  
#  3  1952 -0.101  
#  4  1953 -0.459  
#  5  1954 -0.00130
#  6  1955  0.559  
#  7  1956 -0.457  
#  8  1957 -0.251  
#  9  1958  1.10   
# 10  1959  0.282  
# # … with 61 more rows 

Either you can put the animation in order of value_yr or you can put the color in ggplot in order by year. Which would you prefer?

Обновлять

Вы не будете использовать transition_reveal для группировки и перехода по одному и тому же элементу. К сожалению, я не могу сказать вам, почему, но, похоже, он застрял на 1958 году!

Чтобы этот gif слева соответствовал ggplot png справа:

Во-первых, я изменил вызовы на ggplot и geom_line.

  ggplot(aes(x = month(date, label = T), y = value, 
             group = yr, color = yr)) +
  geom_line(size = .6)

Затем я попытался использовать transition_reveal, но заметил, что последующие годы были наслоены на под других лет. Я не могу объяснить это странное поведение. Когда я бежал showCol после смены temp, цвета были в порядке. Это исключило то, о чем я думал изначально.

Я изменил объект anim, используя transition_manual, чтобы задать порядок слоев графика.

anim <- temp +
  transition_manual(yr, cumulative = T) +
  ease_aes('linear')

Вот и все. Теперь слои совпадают. Что касается того, сработало бы это до того, как вы изменили назначение цвета: исходный сюжет с ручными переходами года слева, ggplot png справа:

Похоже, это тоже сработало бы. Итак, мое первоначальное растянутое объяснение было далеко не таким полезным, как я думал, но, по крайней мере, теперь у вас есть рабочее решение. (Вздох.)