r - 将gtable对象与gganimate一起使用

我正在用gganimate生成gif，我想对绘图格式进行一些调整，只能通过将ggplot对象转换为gtable来实现。例如，我想更改情节标题的位置，以使其始终出现在情节的最左上角。
以下是情节调整的示例：

library(ggplot2)
library(gganimate)
library(dplyr)

# Helper function to position plot title all the way to left of plot
align_titles_left <- function(p, newpage = TRUE) {
  p_built <- invisible(ggplot2::ggplot_build(p))
  gt <- invisible(ggplot2::ggplot_gtable(p_built))

  gt$layout[which(gt$layout$name == "title"), c("l", "r")] <- c(2, max(gt$layout$r))
  gt$layout[which(gt$layout$name == "subtitle"), c("l", "r")] <- c(2, max(gt$layout$r))


  # Prints the plot to the current graphical device
  # and invisibly return the object
  gridExtra::grid.arrange(gt, newpage = newpage)
  invisible(gt)
}

# Create an example plot
static_plot <- iris %>%
  ggplot(aes(x = Sepal.Length, y = Sepal.Width,
             color = Species)) +
  geom_point() +
  labs(title = "This title should appear in the far left.")

# Print the static plot using the adjustment function
align_titles_left(static_plot)

如何在gganimate中使用此功能？
这是一些示例gganimate代码，用于将本示例中的绘图转换为动画。

# Produce the animated plot
static_plot +
  transition_states(Species,
                    transition_length = 3,
                    state_length = 1)

最佳答案

这是结果。解释如下：

在创建了动画情节的各个帧之后，但在将它们绘制到相关的图形设备上之前，应使用grob进行任何骇客操作。此窗口出现在plot_frame的gganimate:::Scene功能中。

我们可以定义我们自己的Scene版本，该版本继承原始版本，但使用修改后的plot_frame函数并插入grob hack行：

Scene2 <- ggproto(
  "Scene2",
  gganimate:::Scene,
  plot_frame = function(self, plot, i, newpage = is.null(vp),
                        vp = NULL, widths = NULL, heights = NULL, ...) {
    plot <- self$get_frame(plot, i)
    plot <- ggplot_gtable(plot)

    # insert changes here
    plot$layout[which(plot$layout$name == "title"), c("l", "r")] <- c(2, max(plot$layout$r))
    plot$layout[which(plot$layout$name == "subtitle"), c("l", "r")] <- c(2, max(plot$layout$r))

    if (!is.null(widths)) plot$widths <- widths
    if (!is.null(heights)) plot$heights <- heights
    if (newpage) grid::grid.newpage()
    grDevices::recordGraphics(
      requireNamespace("gganimate", quietly = TRUE),
      list(),
      getNamespace("gganimate")
    )
    if (is.null(vp)) {
      grid::grid.draw(plot)
    } else {
      if (is.character(vp)) seekViewport(vp)
      else pushViewport(vp)
      grid::grid.draw(plot)
      upViewport()
    }
    invisible(NULL)
  })

此后，我们必须在动画处理中用我们的版本Scene替换Scene2。我在下面列出了两种方法：

定义单独的动画功能animate2，以及使用Scene2代替Scene所需的中间功能。我认为这更安全，因为它不会更改gganimate包中的任何内容。但是，它确实涉及更多代码，并且如果功能定义在源代码处发生更改，将来可能会中断。
覆盖此会话的gganimate包中的现有功能（基于答案here）。这需要在每个会话中进行手动操作，但是实际所需的代码更改很小，并且可能不会那么容易中断。但是，由于相同的功能可能导致不同的结果，具体取决于在更改之前还是更改之后调用它，因此还存在使用户感到困惑的风险。

方法1

定义功能：

library(magrittr)

create_scene2 <- function(transition, view, shadow, ease, transmuters, nframes) {
  if (is.null(nframes)) nframes <- 100
  ggproto(NULL, Scene2, transition = transition,
          view = view, shadow = shadow, ease = ease,
          transmuters = transmuters, nframes = nframes)
}

ggplot_build2 <- gganimate:::ggplot_build.gganim
body(ggplot_build2) <- body(ggplot_build2) %>%
  as.list() %>%
  inset2(4,
         quote(scene <- create_scene2(plot$transition, plot$view, plot$shadow,
                                      plot$ease, plot$transmuters, plot$nframes))) %>%
  as.call()

prerender2 <- gganimate:::prerender
body(prerender2) <- body(prerender2) %>%
  as.list() %>%
  inset2(3,
         quote(ggplot_build2(plot))) %>%
  as.call()

animate2 <- gganimate:::animate.gganim
body(animate2) <- body(animate2) %>%
  as.list() %>%
  inset2(7,
         quote(plot <- prerender2(plot, nframes_total))) %>%
  as.call()

用法：

animate2(static_plot +
           transition_states(Species,
                             transition_length = 3,
                             state_length = 1))

方法2

在控制台中运行trace(gganimate:::create_scene, edit=TRUE)，然后在弹出的编辑窗口中将Scene更改为Scene2。

用法：

animate(static_plot +
          transition_states(Species,
                            transition_length = 3,
                            state_length = 1))

（两种方法的结果相同。）

关于r - 将gtable对象与gganimate一起使用，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/55362961/