r - 如何在gganimate中显示y轴的当前值？

Question

我有一个dataframe df:

df = data.frame(name = "bird",
           value = seq(0, 1, length.out = 100),
           step = 1:100)

我想通过显示变量 value 增加来为这些数据设置动画。在动画中，我想显示当前的 step 和该步骤的 value。

这是我到目前为止所做的:

library(ggplot2)

gg = ggplot(df, aes(name, value)) +
        geom_bar(stat = "identity", fill = "darkgreen") +
        coord_cartesian(ylim = c(0, 1))

gg + gganimate::transition_states(step) +
        ggtitle("Step: {closest_state}",
                subtitle = "Value: {frame}")

step 显示正确，但 value 显然不是。

Answer 1

以类似的方式，但没有太多的管道和更少的计算(简单的基础 R 子集)

library(gganimate)
#> Loading required package: ggplot2
df <- data.frame(
  name = "bird",
  value = seq(0, 1, length.out = 100),
  step = 1:100
)

anim <- ggplot(df, aes(name, value)) +
  geom_col(fill = "darkgreen") +
  coord_cartesian(ylim = 0:1) +
  transition_manual(frames = step) +
  ggtitle("Step: {current_frame}",
    subtitle = "Value: {round(df$value[as.integer(current_frame)], 2)}"
  )

animate(anim, duration = 4)

^{由 reprex package 创建于 2022-06-29 (v2.0.1)}

PS 我正在使用 transition_manual 和 current_frame 因为 gganimate did not show all frames .另一种选择是在 animate

中使用 set details = fps