情节R：如何添加属于框架的动态注释

Question

我在一项简单的任务上挣扎。我有一个包含3列的数据库：

• 年龄（数字）
• pop（
• 数字）
• PORP60：年龄＆gt; = 60的个体百分比（如60：12％的poeple'的字符串类似于'）。此值的每行相同。 数据集看起来像：

我建立了一个基于年份的框架的绘图。因此，我有一个滑块，可以让我在每个年龄段显示个人数量，这是一年一度的动画。

我想添加一种阳极源，以显示帧年度部分60的值...我知道将GGPLOT发送到GGPLOTLY函数是可能的（对我来说）更容易控制和遵循我的代码的逻辑。

这是我的代码：

gH <- plot_ly(data = dataH,
              name = 'Hommes',
              marker = list(color = ispfPalette[4]),
              x = ~Pop,
              y = ~Age,
              frame = ~Annee)
gH <- gH %>% layout(yaxis = list(categoryorder="array",
                                 categoryarray=dataH$Age))
gH <- gH %>% layout(yaxis = list(title = '',
                                 zeroline = TRUE,
                                 showline = TRUE,
                                 showticklabels = TRUE,
                                 showgrid = FALSE), 
                    xaxis = list(title = '',
                                 zeroline = TRUE,
                                 showline = TRUE,
                                 autorange = "reversed"),
                    shapes = hline(60)) 
gH <- gH %>% add_annotations(
  x = 3000,
  y = 62,
  text = 'Part des 60 ans et + : 12 %',
  showarrow = F,
  color = ispfPalette[8]

其中 text ='部分des 60 ans et +：12％'应该由我替换我可以获得属于属于的值的东西滑块的一年。

有人可以帮我做吗？

事先感谢您的大力帮助。

Answer 1

由于我没有您的数据，因此很难给您最好的答案。虽然，这是一种可以在整个动画中添加更改文本的方法。

library(plotly)
library(tidyverse)

data(gapminder, package = "gapminder")
str(gapminder)

funModeling::df_status(gapminder)
# continent, lifeExp, year

gap <- gapminder %>% group_by(year, continent) %>%
  summarise(Expectancy = mean(lifeExp))

# plot 
p1 <- plot_ly(gap, x = ~Expectancy, y = ~continent,
              frame = ~year, type = 'bar', 
              showlegend = F,
              hovertemplate = paste0("Continent: %{y}<br>",
                                     "<extra></extra>"),
              texttemplate = "Life Expectancy: %{x:.2f}") %>%
  layout(yaxis=list(title=""), 
         xaxis=list(title="Average Life Expectancy per Continent By Year"),
         title=list(text=paste("Fancy Title")),
         margin = list(t = 100))
p1

如果您有文本，则需要动画，该文字未连接到每个标记（bar，point，line），那么您可以这样做。

# Something to add in the annotation text
gap2 <- gap %>% filter(continent == "Asia") %>% 
  droplevels() %>% 
  arrange(year)

# build to see frames
p2 <- plotly_build(p1)

# modify frames; need an annotation for each frame
# make sure the data is in order by year (order by frame)
lapply(1:nrow(gap2), # for each frame
       function(i){
         annotation = list(
           data = gap2,
           type = "text",
           x = 77,
           y = .5,
           yref = "paper",
           showarrow = F,
           text = paste0("Asian Life Expectancy<br>", 
                         sprintf("%.2f", gap2[i, ]$Expectancy)), 
           font = list(color = "#b21e29", size = 16))
         p2$x$frames[[i]]$layout <<- list(annotations = list(annotation)) # change plot
       })
p2

如果有什么不清楚的话，请告诉我。