问题描述
我相信下面的图片应该很容易解释。使用transition_time
时,有没有人知道如何仅为一个几何图形创建阴影标记(用于标记)?
非常欢迎任何解决方法。在一个正常的世界中,我会创建两个图(图和标题),但我不知道如何在这样的组合图上使用gganimate,至少我没有找到关于Cowplot和拼凑而成的解决方案(鉴于至少拼凑而成的人是同一位开发人员,我认为这可能可行。)
library(ggplot2)
library(gganimate)
myfoo <- data.frame(time = 1:100,x = 1:100,y = 1)
p <-
ggplot(myfoo) +
geom_point(aes(x,y)) +
geom_text(aes(x = 0,y = 0,label = time))
p_anim <-
p +
transition_time(time) +
shadow_mark()
animate(p_anim,height = 150,width = 250)
左下方的标签不应带有阴影标记。
我正在寻找的东西如下:
p_title <-
ggplot(myfoo) +
geom_point(aes(x,y)) +
labs(title = "{frame_time}")
p_title_anim <-
p_title +
transition_time(time) +
shadow_mark()
animate(p_title_anim,width = 250)
标题中的交互式元素应该是情节注释。
解决方法
如Z.Lin在她的评论中所建议的,此处是exclude_layer
中带有shadow_mark()
参数的解决方案:
为了不将其标记为未答复,我将接受它。我仍然希望Z.Lin可以发表她的评论作为答案。
library(ggplot2)
library(gganimate)
myfoo <- data.frame(time = 1:100,x = 1:100,y = 1)
p <-
ggplot(myfoo) +
geom_point(aes(x,y)) +
geom_text(aes(x = 0,y = 0,label = time))
p_anim <-
p +
transition_time(time) +
shadow_mark(exclude_layer = 2)
animate(p_anim,height = 150,width = 250)
由reprex package(v0.3.0)于2020-10-03创建