是否可以使用 gganimate 在 2 个绘图中协调动画

Question

我想要 2 个动画情节，同步进行。所以也许我有一个包含 3 列（时间、x 和 y）的数据集，当我们逐步了解时间时，x 的图和 y 的图会同步移动。 此外，我希望它出现在一个 R-shiny 应用程序中，带有一个名为“迈出一步”的按钮，用于控制动画。 我希望使用 gganimate，然后我只需要一种设置当前显示的框架的方法。这可能吗？

非常感谢，

Answer 1

这样的事情可能会奏效。使用reactiveVal 监视Make a step 按钮以更新数据集并重新渲染绘图。

library(shiny)
library(ggplot2)

dd  <- tibble(Time = 1:10,
              x = 1:10,
              y = 1:10*10)

ui <- basicPage(column(1, actionButton("make_a_step", "Make a step")),
                column(4, plotOutput("p1")),
                column(4, plotOutput("p2")))

server <- function(input, output) {
  n_steps <- reactiveVal(value = 0)

  observeEvent(input$make_a_step,{
    new_steps <- n_steps() + 1
    n_steps(new_steps)
  })

  plot_fun <- function(df, x_or_y) {
    ggplot(df, aes(x = "Time", y = !!as.name(x_or_y))) + geom_point()
  }

  sub_fun <- function(steps) {
    validate(need(steps <= 10, "You've reached the last time point"))
    dd[1:steps,]
  }

  output$p1 <- renderPlot({
    plot_fun(sub_fun(n_steps()), "x")
  })

  output$p2 <- renderPlot({
    plot_fun(sub_fun(n_steps()), "y")
  })

}

runApp(list(ui = ui, server = server))