我有以下数据框:
# Seed RNG
set.seed(33550336)
# Create data frame
df <- data.frame(x = runif(100),
y = runif(100),
t = runif(100, min = 0, max = 10))
我想绘制点(即 atx
和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)
此代码产生以下内容:
有几件事我不喜欢这个。
- 过渡非常突然。我希望使用
enter_fade
andexit_fade
是这些点会淡入视野,然后退出。显然情况并非如此,但我将如何实现这个结果? - 我想对 进行舍入
{frame_time}
,以便当点以 的分数淡入和淡出时,将显示t
的实际时间t
将是一个整数。如果frame_time
是一个常规变量,使用类似的东西就足够简单了bquote
,round
但情况似乎并非如此。我怎样才能frame_time
在我的标题中四舍五入?