gganimate::transition_events的等价物
提问于 2020-09-02 10:35:22
在R中，使用gganimate，我们可以制作一个动画情节，其中事件出现并随着时间的推移而消失。例如：
library(lubridate)
library(gganimate)
df=data.frame(
x=c(1,2,3,4),
y=c(1,2,3,4),
start=c(1,2,3,4),
end=c(5,6,7,8),
en=as_date(1),
ex=as_date(1))
ggplot(data=df, aes(x=x,y=y))+
geom_point()+
gganimate::transition_events(
start=start,
end=end,
enter_length = as.numeric(en),
exit_length = as.numeric(ex))这就产生了一个根据“开始”列出现点和根据“结束”列出现点的情节。
我想知道是否有一个简单的方法来实现同样的策略(最好使用ggplotly())，让滑块沿着时间移动。
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-09-03 01:12:48
下面是一个使用ggplotly的示例。然而，结果并不完全相同：
library(plotly)
library(lubridate)
df = data.frame(
x = c(1, 2, 3, 4),
y = c(1, 2, 3, 4),
start = c(1, 2, 3, 4),
end = c(5, 6, 7, 8),
en = as_date(1),
ex = as_date(1)
)
frame_list <- Map(seq, from = df$start, to = df$end)
DF <- data.frame(x = rep(df$x, times = lengths(frame_list)),
y = rep(df$y, times = lengths(frame_list)),
frame = unlist(frame_list))
p <- ggplot(DF, aes(x, y)) +
geom_point(aes(size = y, frame = frame))
fig <- ggplotly(p)
fig %>%
animation_opts(
frame = 0,
easing = "linear",
redraw = FALSE,
mode = "immediate"
)
fig
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/63711660
复制相关文章
![[答疑]是增加了一个功能还是增加了一个系统](https://ask.qcloudimg.com/http-save/yehe-6288414/i8wx1sd6b6.png)
点击加载更多
腾讯云开发者
