r - transition_time 带有阴影标记，仅用于一个几何体/层

Question

我相信下面的图片应该是不言自明的。使用时 transition_time ，有没有人知道如何为一个 geom 创建阴影标记(用于标签)？
非常欢迎任何解决方法。在正常世界中，我会创建两个图(图和标题)，但我不知道如何在这样一个组合图上使用 gganimate，至少我没有找到带有牛图和拼凑的解决方案(给定至少 patchwork 共享同一个开发人员，我认为它可能会起作用。)

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, height = 150, width = 250)

标题中的交互元素应该是绘图注释。

Answer 1

正如 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)

创建于 2020-10-03 由 reprex package (v0.3.0)