gganimate независимо geom_text и geom_point

#r #ggplot2 #gganimate

Вопрос:

У меня есть набор данных по странам на компьютере. Я хотел бы отобразить все точки в этом пространстве (см. Изображение ниже).

 ggplot(ind_countries,
       aes(PC1, PC2))  
  geom_point()

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

 ggplot(ind_countries %>% slice(1:10),
       aes(PC1, PC2))  
  shadow_mark()  
  geom_point() 
  geom_text(aes(label=Area))  
  transition_states(Area)

Но я не хочу интерполировать между названиями стран, названия стран должны быть исправлены. Что еще более важно, этот визуальный элемент будет сильно загроможден при использовании всех ~ 200 меток. То же самое, как если бы я сделал ggplot(...) geom_text() .

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

Данные

 structure(list(Area = c("Afghanistan", "Albania", "Algeria", 
"Angola", "Antigua and Barbuda", "Argentina", "Armenia", "Australia", 
"Austria", "Azerbaijan"), PC1 = c(`1` = -533.00304848187, `2` = -733.478134192073, 
`3` = -862.469905878461, `4` = 210.741387772907, `5` = -75.9683314876284, 
`6` = -432.40416113792, `7` = -739.448970021204, `8` = -153.020907842885, 
`9` = -266.078280799454, `10` = -856.759952967809), PC2 = c(`1` = 242.086883796857, 
`2` = 204.143228785502, `3` = 179.014761012001, `4` = -453.158827266088, 
`5` = -76.6617307886724, `6` = 31.1628432885813, `7` = 206.38294390879, 
`8` = -58.8035296785091, `9` = -100.898331142746, `10` = 240.75679171712
), PC3 = c(`1` = 65.4343509859609, `2` = 83.3998919734866, `3` = 216.37491156154, 
`4` = -104.167202758037, `5` = -203.978295596104, `6` = -12.4117893989394, 
`7` = 37.4440357817306, `8` = -174.038394855287, `9` = -64.9420372105368, 
`10` = 133.284279359949)), row.names = c(NA, -10L), class = c("tbl_df", 
"tbl", "data.frame"))

1. Поскольку вы не хотите, чтобы названия стран перемещались, как насчет того, чтобы поместить {closest_state} в заголовок вместо geom_text слоя для него?

2. Извините, возможно, я не следую, но я хочу, чтобы они были в виде текста с координатами xy, как я могу поместить их в заголовок и разместить их в xy?

Ответ №1:

Вот возможный подход к вашему альтернативному запросу:

 ind_countries %>%
  ggplot(aes(PC1, PC2))  
  
  # static layer with all the points constantly visible
  geom_point(data = . %>% select(-Area))  
  
  # animated layer, each red point appears in turn (can add other
  # changes for emphasis as well)
  geom_point(aes(group = Area), 
             colour = "red")   
  
  # animated layer, each label appears in turn slightly above point (given the
  # number of points in the full dataset, geom_label will be easier to read
  # than geom_text
  geom_label(aes(group = Area, label=Area, y = PC2   25))   
  
  transition_states(Area)

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