舍入frame_time和gganimate的平滑过渡

Question

我有以下数据框：

# Seed RNG
set.seed(33550336)

# Create data frame
df <- data.frame(x = runif(100), 
                 y = runif(100), 
                 t = runif(100, min = 0, max = 10))

我想绘制根据x出现和消失的点（即在y和t坐标处）。 gganimate很棒，所以我用了。

# Load libraries
library(gganimate)
library(ggplot2)

# Create animation
g <- ggplot(df, aes(x = x, y = y))
g <- g + geom_point(colour = "#FF3300", shape = 19, size = 5, alpha = 0.25)
g <- g + labs(title = 'Time: {frame_time}')
g <- g + transition_time(t)
g <- g + enter_fade() + exit_fade()
animate(g, fps = 1)

这段代码产生了以下内容：

我不喜欢这件事。

1. 过渡非常突然。我希望使用enter_fade和exit_fade是这些点会淡出视图，然后再消失。显然不是这种情况，但是我将如何 达到这个结果？
2. 我想对{frame_time}进行四舍五入，以便当点以t的分数淡入淡出时，实际显示的时间t将是一个整数。如果frame_time是一个常规变量，那么使用bquote和round之类的方法就足够简单了，但事实并非如此。如何在标题中四舍五入frame_time？

Answer 1

这是一种相对手动的方法，它依赖于预先进行更多的准备工作并将其提供给gganimate。我想看看是否有更简单的方法可以在gganimate内更自动地进行此操作。

首先，为要显示的每个帧制作数据帧的副本。然后，当我要显示每个数据点时，我计算当前正在查看的时间（time）与t之间的差。我使用cos来处理缓动，因此用display描述了给定时间每个点的外观。在ggplot调用中，我然后将alpha和大小映射到display，然后使用transition_time(time)在各帧之间移动。

# Create prep table
fade_time = 1
frame_count = 100
frames_per_time = 10
df2 <- map_df(seq_len(frame_count), ~df, .id = "time") %>%
  mutate(time = as.numeric(time)/frames_per_time,
         delta_norm = (t - time) / fade_time,
         display = if_else(abs(delta_norm) > 1, 0, cos(pi / 2 * delta_norm)))


# Create animation
g <- ggplot(df2, aes(x = x, y = y, alpha = display, size = display))
g <- g + geom_point(colour = "#FF3300", shape = 19)
g <- g + scale_alpha(range = c(0, 1)) + scale_size_area(max_size = 5)
g <- g + labs(title = "{round(frame_time, 1)}") 
g <- g + transition_time(time)
animate(g)