R Plotly Animation Gapminder - PullRequest
Новая
       19

R Plotly Animation Gapminder

1 голос
/ 28 февраля 2020

Мне было интересно, можно ли добавить аннотации к сюжету Plotly Animated Gapminder? Я имею в виду, мне не нужно, чтобы у всех пузырей были аннотации, но мне бы хотелось, чтобы у некоторых из них были.

Вот пример, единственная страна, которую я хочу отобразить, это Китай. 

library(plotly)
library(gapminder)


m <- gapminder[gapminder$country == "China", ]

a <- list(
  x = m$gdpPercap,
  y = m$lifeExp,
  text = m$country,
  xref = "x",
  yref = "y",
  showarrow = TRUE,
  arrowhead = 7,
  ax = 20,
  ay = -40
)

df <- gapminder 
fig <- df %>%
  plot_ly(
    x = ~gdpPercap, 
    y = ~lifeExp, 
    size = ~pop, 
    color = ~continent, 
    frame = ~year, 
    text = ~country, 
    hoverinfo = "text",
    type = 'scatter',
    mode = 'markers'
  ) %>% add_markers() %>% layout(annotations = a)

Мне нужно, чтобы аннотация следовала за маркером Китая. Вы знаете, возможно ли это?

Спасибо! Bruno

...