ggplotly日期X轴折线动画实现：动画时线条消失问题求解

问题背景 #

想要实现随日期推进、两条折线逐渐延长的动画效果，在ggplot的aes里添加了frame = activity_date参数后，出现「Ignoring unknown aesthetics: frame and text」警告；用ggplotly(tooltip = c("text"))转换后，初始图表正常，但时间轴推进后折线消失，仅悬停能看到数据点。

问题原因 #

geom_line不支持frame和text这类plotly专属的美学映射，因此会抛出警告。更关键的是：直接给单条数据行绑定frame时，每个动画帧只会包含当前日期的孤立数据点，没有足够的前后数据支撑折线绘制，导致推进后折线消失。

解决方案 #

先预处理数据，让每个动画帧对应的数据集包含到当前日期为止的所有历史数据，再用plotly的原生动画功能实现折线逐步延长的效果。以下是修改后的完整代码：

library(tidyverse)
library(lubridate)
library(plotly)
library(RColorBrewer)

# 原始数据
activity <- c("N", "FB", "N", "N", "N", "FA", "N", "FA", "N", "FA", "N", "N", "N", "N", "N", "FA", "N", "N", "N", "N", "FA", "N", "N", "FA", "FA")
activity_date <- as.Date(c(NA, "2022-04-19", "2022-05-01", "2022-05-01", "2022-05-06", "2022-05-06", "2022-05-07", "2022-05-07", "2022-05-09", "2022-05-09", "2022-05-10", "2022-05-13", "2022-05-14", "2022-05-14", "2022-05-14", "2022-05-15", "2022-05-15", "2022-05-15", "2022-05-15", "2022-05-15", "2022-05-16", "2022-05-16", "2022-05-16", "2022-05-16", "2022-05-16"))
fcrawl_cum <- c(0L, 1L, 1L, 1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 7L, 8L)
clutch_cum <- c(1L, 1L, 2L, 3L, 4L, 4L, 5L, 5L, 6L, 6L, 7L, 8L, 9L, 10L, 11L, 11L, 12L, 13L, 14L, 15L, 15L, 16L, 17L, 17L, 17L)

turtle_activity_gtm <- tibble(activity, activity_date, fcrawl_cum, clutch_cum)
the_pal <- brewer.pal(n = 8,"Dark2")

# 预处理：生成每个日期对应的累积数据集
# 先去掉NA的日期行
turtle_clean <- turtle_activity_gtm %>% filter(!is.na(activity_date))
# 获取所有唯一日期
unique_dates <- unique(turtle_clean$activity_date) %>% sort()

# 为每个日期生成包含到该日期为止的所有数据的列表
frame_data <- map(unique_dates, function(date) {
  turtle_clean %>%
    filter(activity_date <= date) %>%
    pivot_longer(c(fcrawl_cum, clutch_cum)) %>%
    mutate(frame = date) # 标记当前帧对应的日期
}) %>% bind_rows()

# 用plotly构建动画
plot_ly(frame_data, x = ~activity_date, y = ~value, color = ~name, 
        text = ~paste("Date: ", activity_date, "<br>Total: ", value),
        type = 'scatter', mode = 'lines+markers', line = list(width = 1.5)) %>%
  layout(title = "myplot2",
         xaxis = list(title = "Activity Date"),
         yaxis = list(title = "Cumulative Total")) %>%
  colorway(c(the_pal[[7]], the_pal[[6]])) %>% # 设置颜色
  animation_frame(~frame, label = ~frame) %>% # 绑定动画帧
  animation_opts(frame = 1000, transition = 500) %>% # 动画参数：帧时长、过渡时长
  layout(showlegend = TRUE) %>%
  tooltip("text")

代码说明 #

1. 数据预处理：过滤掉日期为NA的行，为每个唯一日期生成包含到该日期为止的所有历史数据的数据集，确保每个动画帧有足够的点来绘制连续折线。
2. plotly动画构建：用plot_ly直接创建折线图，通过animation_frame绑定帧，设置mode = 'lines+markers'保证折线和点都显示，同时保留自定义tooltip。

内容的提问来源于stack exchange，提问作者Jeff