r - 在不规则时间为持久数据点设置动画
问题描述
我正在尝试为数据点设置动画以在特定时间出现。数据点没有相互链接,因此应该没有往返它们的踪迹。他们应该在指定的时间和地点出现。
然而,可能由于不规则的时间间隔和帧渲染的性质,似乎有很多引入。在一个数据点之前有很长的时间间隔之前,它真的很明显。
我弄乱了shadow_trail()
, shadow_wake()
, nframes
inanimate()
以及其他一些transition_*()
功能都无济于事。
这是一个 10x10 网格的代码示例,其中每个方块在数据中指定的时间弹出,但不是在任何固定间隔。您可以看到一些方块前往目的地。它们应该就地出现。
library(ggplot2)
library(gganimate)
pos <- seq(1, 100, 1)
# Squares on a 10x10 grid that pop up at random times
grid_data <- data.frame(pct = pos,
t = rnorm(100, mean=50, sd=25),
xpos = (pos-1) %% 10,
ypos = floor((pos-1) / 10))
p <- ggplot(grid_data, aes(x=xpos, y=ypos, fill=t)) # plot tiles, color by time of arrival
p <- p + geom_tile(aes(width=0.95, height=0.95)) # tiles with some gap around them
p <- p + transition_time(time=grid_data$t) # Show data points by their time
p <- p + shadow_mark(past=TRUE, future=FALSE) # Keep showing past (prior) data points
animate(p)
解决方案
我认为正在发生的事情是,当您使用时,transition_time
您的过渡正在从一个图块“移动”到下一个图块。您可以通过使用来防止这种情况transition_reveal
。
尝试这个:
library(ggplot2)
library(gganimate)
pos <- seq(1, 100, 1)
grid_data <- data.frame(pct = pos,
t = rnorm(100, mean=50, sd=25),
xpos = (pos-1) %% 10,
ypos = floor((pos-1) / 10))
grid_data %>%
ggplot() +
aes(x=xpos, y=ypos, fill=t) +
geom_tile(aes(width=0.95, height=0.95)) +
transition_reveal(pct, t, keep_last = TRUE) +
anim_save("animated_geom_tile.gif")
产生这个...
推荐阅读
- arrays - C - 二维数组后释放内存
- android - Android Studio 的 Hypervisor 一直有同样的错误,我已经尝试了我在网上能找到的所有东西
- java - java是否将对象本地放在堆栈上的函数中?
- sql - 如何选择第二列中出现所有值的一列值
- django - django filter(string__icontains) 如何遍历列表?
- hive - Hive 备份和恢复
- css - 如何在 CSS 中创建链接
- maven-3 - 我正在尝试使用 Arquillian 智能测试库但没有成功
- python - 我的 Postgresql COPY 事务还在运行吗?
- python - 为什么第二个 request.session cookie 返回空?