使用Ploly包创建动画线图

Question

我不熟悉在R中使用plotly软件包，我想制作一个线图的动画。例如，如果我绘制一个国家的人均GDP（x轴）和预期寿命（y轴）。绘本

data(gapminder, package = "gapminder")
    gg <- ggplot(gapminder, aes(gdpPercap, lifeExp, color = continent)) +
    geom_point(aes(size = pop, frame = year, ids = country)) +
    scale_x_log10()
    ggplotly(gg)

我尝试用plotly创建一个普通的折线图，并添加frame参数（frame=~year），但该图是空白的。

我如何使用Ploly的动画功能来制作线图动画？

此外，gganimate对我来说不是一个选项，因为在Windows上运行ImageMagick似乎有问题。

Answer 1

这是一个动画线图——在周期性不断增加的正弦曲线之间插值（也许这是一件可疑的事情，但看起来确实很酷）。

下面是代码：

# Create a data frame with 10 sine curves with period of 1 to 10
# ranging over a set of points ranging from -pi to +pi

pdf <- NULL
for (p in 1:10){
   x <- pi*(-100:100)/100
   y <- sin(x*p)
   df <- data.frame(x,y,p)
   pdf <- rbind(pdf,df)
}

# now plot it with the animation control "frame" set to "p"

plt <- plot_ly(pdf, x = ~x, y = ~y, frame=~p, type = 'scatter', mode = 'lines')
plt

以下是动画开始时的样子（帧1）：