如何使用Plotly将ggplot中的文本标签制作为随时间变化的动画

云原生阿岚

2026-4-22

嘿，我来帮你搞定这个随时间变化的文本动画！咱们可以用Plotly的原生动画功能来实现，结合你的数据一步步来，完全能达到你想要的动态更新数值的需求：

首先，先重现你的原始数据（确保数据结构和你提供的一致）：

# 生成气体监测数据
combined_gas <- data.frame(
  Date_Time = as.POSIXct(c("2023-06-14 09:59:48", "2023-06-14 09:59:51", "2023-06-14 09:59:54",
                           "2023-06-14 09:59:58", "2023-06-14 10:00:01")),
  Carbon_Dioxide_Level = round(rnorm(n = 5,  mean = 0.36, sd = 0.01),2),
  Oxygen_Level = round(rnorm(n = 5, mean = 0.04, sd = 0.005),2),
  Nitrogen_Level = round(rnorm( n = 5, mean = 0.37, sd = 0.02),2)
)

接下来就是核心的动画制作步骤了，咱们用Plotly的plot_ly()函数来构建，重点是利用animation_frame参数绑定时间列，让每个时间点对应一个动画帧：

library(plotly)

# 构建动态文本动画
p_animated <- plot_ly(combined_gas) %>%
  # 指定每个动画帧对应一个时间点，按时间顺序播放
  animation_frame(~Date_Time, frame = ~Date_Time) %>%
  # 添加二氧化碳浓度文本标签，位置和你原来的ggplot一致
  add_text(
    x = 0, y = 2.0,
    text = ~paste0("Carbon Dioxide Level = ", Carbon_Dioxide_Level, " kg"),
    showlegend = FALSE
  ) %>%
  # 添加氧气浓度文本标签
  add_text(
    x = 0, y = 1.75,
    text = ~paste0("Oxygen Level = ", Oxygen_Level, " kg"),
    showlegend = FALSE
  ) %>%
  # 添加氮气浓度文本标签
  add_text(
    x = 0, y = 1.5,
    text = ~paste0("Nitrogen Level = ", Nitrogen_Level, " kg"),
    showlegend = FALSE
  ) %>%
  # 设置布局，模拟你原来的theme_void效果
  layout(
    yaxis = list(range = c(0, 2)), # y轴范围和原ggplot一致
    xaxis = list(showticklabels = FALSE, showgrid = FALSE), # 隐藏x轴刻度和网格
    showlegend = FALSE,
    plot_bgcolor = "white" # 背景设为白色，更清爽
  ) %>%
  # 调整动画播放参数
  animation_opts(
    frame = 1200, # 每个帧停留1.2秒，可按需修改
    transition = 400, # 帧之间的过渡时间0.4秒
    autoplay = TRUE, # 自动播放动画
    loop = TRUE # 循环播放，不需要的话可以改成FALSE
  )

# 查看最终动画
p_animated

给你解释下关键步骤：

animation_frame(~Date_Time)是核心：它会把数据里的每个时间点作为独立的动画帧，播放时就会按时间顺序依次切换每个时间点的数值。
三个add_text()分别对应你原来的三个geom_text，位置完全匹配，text参数用公式引用对应列的数值，这样每个帧都会显示当前时间点的最新数值。
layout()里的设置是为了贴近你原来的theme_void风格，去掉多余的刻度和网格，保持简洁。
animation_opts()可以自定义动画的播放节奏，比如调整停留时间、是否循环，你可以根据实际需求修改参数数值。

这样运行之后，你就能看到三个气体数值随着时间动态更新的动画效果啦！

备注：内容来源于stack exchange，提问作者Golem