blocks|key|2128481|text|您可以手动为每一层添加一个frame美学，但它将立即包含所有帧的传奇(我相信，有意保持比率/利润率等正确)：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2128482|saveAnimate+<-
++ggplot(mtcars,+aes(x+=+hp,+y+=+mpg))+%2B
++#+frame+1
++geom_point(aes(frame+=+1))+%2B
++#+frame+2
++geom_point(aes(color+=+factor(cyl)
+++++++++++++++++,+frame+=+2)
+++++++++++++)+%2B
++#+frame+3
++geom_point(aes(color+=+factor(cyl),+size+=+wt
+++++++++++++++++,+frame+=+3))+%2B
++#+frame+4
++geom_point(aes(color+=+factor(cyl),+size+=+wt
+++++++++++++++++,+frame+=+4))+%2B
++#+I+don't+think+I+can+add+this+one
++labs(title+=+"MTCARS")

gg_animate(saveAnimate)|code-block|syntax|javascript|2128483|​|2128484|📷|atomic|2128485|2128486|如果你想自己添加一些东西，甚至能看到传说，标题等如何移动东西，你可能需要退一步到一个较低级别的包，并自己构造图像。在这里，我使用的是animation包，它允许您在没有任何限制的情况下循环遍历一系列的情节(它们根本不需要相关，所以肯定可以显示移动绘图区域的东西。请注意，我认为这需要在计算机上安装ImageMagick。|2128487|p+<-+ggplot(mtcars,+aes(x+=+hp,+y+=+mpg))

toSave+<-+list(
++p+%2B+geom_point()
++,+p+%2B+geom_point(aes(color+=+factor(cyl)))
++,+p+%2B+geom_point(aes(color+=+factor(cyl),+size+=+wt))
++,+p+%2B+geom_point(aes(color+=+factor(cyl),+size+=+wt))+%2B
++++labs(title+=+"MTCARS")
)

library(animation)

saveGIF(
++{lapply(toSave,+print)}
++,+"animationTest.gif"
+)|2128488|2128489|2128490|2128491|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://developer.qcloudimg.com/http-save/yehe-900000/47080d02c245da106ec7c118447b5659.gif|imageAlt|1|https://developer.qcloudimg.com/http-save/yehe-900000/07f04df3e76a0adb68e1a2de68ac0567.gif^0|D|5|0|0|0|0|1|0|0|0|1U|9|0|0|0|0|1|1|0|0^^$0|@$1|2|3|4|5|6|7|18|8|@$9|19|A|1A|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|1B|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1C|8|@]|D|@]|E|$]]|$1|M|3|N|5|O|7|1D|8|@]|D|@$9|1E|A|1F|1|1G]]|E|$]]|$1|P|3|L|5|6|7|1H|8|@]|D|@]|E|$]]|$1|Q|3|R|5|6|7|1I|8|@$9|1J|A|1K|B|C]]|D|@]|E|$]]|$1|S|3|T|5|H|7|1L|8|@]|D|@]|E|$I|J]]|$1|U|3|L|5|6|7|1M|8|@]|D|@]|E|$]]|$1|V|3|N|5|O|7|1N|8|@]|D|@$9|1O|A|1P|1|1Q]]|E|$]]|$1|W|3|L|5|6|7|1R|8|@]|D|@]|E|$]]|$1|X|3|-4|5|6|7|1S|8|@]|D|@]|E|$]]]|Y|$Z|$5|10|11|12|E|$13|14|15|-4]]|16|$5|10|11|12|E|$13|17|15|-4]]]]

You can manually add a <code>frame</code> aesthetic to each layer, though it will include the legends for all of the frames immediately (Intentionally, I believe, to keep ratios/margins, etc. correct:

<pre><code>saveAnimate &lt;-
 ggplot(mtcars, aes(x = hp, y = mpg)) +
 # frame 1
 geom_point(aes(frame = 1)) +
 # frame 2
 geom_point(aes(color = factor(cyl)
 , frame = 2)
 ) +
 # frame 3
 geom_point(aes(color = factor(cyl), size = wt
 , frame = 3)) +
 # frame 4
 geom_point(aes(color = factor(cyl), size = wt
 , frame = 4)) +
 # I don't think I can add this one
 labs(title = "MTCARS")

gg_animate(saveAnimate)
</code></pre>

<a href="https://i.stack.imgur.com/eYcFQ.gif" rel="noreferrer"><img src="https://i.stack.imgur.com/eYcFQ.gif" alt="enter image description here"></a>

If you want to be able to add things yourself, and even see how legends, titles, etc. move things around, you may need to step back to a lower-level package, and construct the images yourself. Here, I am using the <code>animation</code> package which allows you to loop through a series of plots, with no limitations (they need not be related at all, so can certainly show things moving the plot area around. Note that I believe this requires ImageMagick to be installed on your computer.

<pre><code>p &lt;- ggplot(mtcars, aes(x = hp, y = mpg))

toSave &lt;- list(
 p + geom_point()
 , p + geom_point(aes(color = factor(cyl)))
 , p + geom_point(aes(color = factor(cyl), size = wt))
 , p + geom_point(aes(color = factor(cyl), size = wt)) +
 labs(title = "MTCARS")
)

library(animation)

saveGIF(
 {lapply(toSave, print)}
 , "animationTest.gif"
 )
</code></pre>

<a href="https://i.stack.imgur.com/Fvdu9.gif" rel="noreferrer"><img src="https://i.stack.imgur.com/Fvdu9.gif" alt="enter image description here"></a>

blocks|key|2128521|text|animation包不会强迫您在数据中指定框架。参见本页这里底部的示例，其中动画被包装在一个大的saveGIF()函数中。您可以指定单个帧和所有内容的持续时间。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2128522|这样做的缺点是，与漂亮的gganimate函数不同，基本的逐帧动画无法保持情节维度/图例常量。但是，如果你能破解你的方式来显示你想要的每一帧，基本的动画包将很好地为你服务。|2128523|entityMap|0|LINK|mutability|MUTABLE|url|http://www.mattwinn.com/tools/HB95_2.html^0|0|9|1C|9|S|2|0|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]|$9|S|A|T|B|C]]|D|@$9|U|A|V|1|W]]|E|$]]|$1|F|3|G|5|6|7|X|8|@]|D|@]|E|$]]|$1|H|3|-4|5|6|7|Y|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|O]]]]

the <code>animation</code> package doesn't force you to specify frames in the data. See the example at the bottom of this page <a href="http://www.mattwinn.com/tools/HB95_2.html" rel="nofollow">here</a>, where an animation is wrapped in a big <code>saveGIF()</code> function. You can specify the duration of individual frames and everything. 

The drawback to this is that, unlike the nice gganimate functions, the basic frame-by-frame animation wont hold the plot dimensions/legend constant. But if you can hack your way into displaying exactly what you want for each frame, the basic animation package will serve you well.

blocks|key|2128572|text|前面的答案中的gganimate命令在2021年被废弃，无法完成OP的任务。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2128573|在Mark代码的基础上，您现在可以简单地创建一个具有多个分层geoms的静态ggplot对象，然后添加gganimate::transition_layers函数来创建一个在静态地块中从一层过渡到另一层的动画。像enter_fade()和enter_grow()这样的推特功能控制着元素在框架中的变化。|2128574|library(tidyverse)
library(gganimate)

anim+<-+ggplot(mtcars,+aes(x+=+hp,+y+=+mpg))+%2B
++#+Title
++labs(title+=+"MTCARS")+%2B
++#+Frame+1
++geom_point()+%2B
++#+Frame+2++
++geom_point(aes(color+=+factor(cyl)))+%2B
++#+Frame+3
++geom_point(aes(color+=+factor(cyl),+size+=+wt))+%2B
++#+gganimate+functions
++transition_layers()+%2B+enter_fade()+%2B+enter_grow()

#+Render+animation
animate(anim)|code-block|syntax|javascript|2128575|entityMap^0|7|9|0|1F|S|2Y|C|3B|C|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|R|8|@$9|S|A|T|B|C]|$9|U|A|V|B|C]|$9|W|A|X|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|Y|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|N|$]]

The <code>gganimate</code> commands in the earlier answers are deprecated as of 2021 and won't accomplish OP's task.
Building on Mark's code, you can now simply create a static ggplot object with multiple layered geoms and then add the <code>gganimate::transition_layers</code> function to create an animation that transitions from layer to layer within the static plot. Tweening functions like <code>enter_fade()</code> and <code>enter_grow()</code> control how elements change into and out of frames.
<pre><code>library(tidyverse)
library(gganimate)

anim &lt;- ggplot(mtcars, aes(x = hp, y = mpg)) +
 # Title
 labs(title = &quot;MTCARS&quot;) +
 # Frame 1
 geom_point() +
 # Frame 2 
 geom_point(aes(color = factor(cyl))) +
 # Frame 3
 geom_point(aes(color = factor(cyl), size = wt)) +
 # gganimate functions
 transition_layers() + enter_fade() + enter_grow()

# Render animation
animate(anim)

</code></pre>

I am starting to get familiar with <code>gganimate</code>, but I want to extend my gifs further.

For instance, I can throw a <code>frame</code> on one variable in <code>gganimate</code> but what if I want to animate the process of adding entirely new layers/geoms/variables?

Here's a standard <code>gganimate</code> example:

<pre><code>library(tidyverse)
library(gganimate)

p &lt;- ggplot(mtcars, aes(x = hp, y = mpg, frame = cyl)) +
 geom_point()

gg_animate(p)
</code></pre>

But what if I want the gif to animate:

<pre><code># frame 1
ggplot(mtcars, aes(x = hp, y = mpg)) +
 geom_point()

# frame 2
ggplot(mtcars, aes(x = hp, y = mpg)) +
 geom_point(aes(color = factor(cyl)))

# frame 3
ggplot(mtcars, aes(x = hp, y = mpg)) +
 geom_point(aes(color = factor(cyl), size = wt))

# frame 4
ggplot(mtcars, aes(x = hp, y = mpg)) +
 geom_point(aes(color = factor(cyl), size = wt)) +
 labs(title = "MTCARS")
</code></pre>

How might this be accomplished?

Animate the process of adding layers to a ggplot2 plot

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我开始熟悉gganimate，但我想进一步扩展gifs。例如，我可以在frame中的一个变量上抛出一个gganimate，但是如果我想动画化添加全新层/geoms/变量的过程呢？下面是一个标准的gganimate示例：library(tidyverse)library(gganimate)p <- ggplot(mtc...

问动画化向ggplot2绘图添加层的过程
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问动画化向ggplot2绘图添加层的过程EN