在R语言中,可以使用`animation`包来画动态烟花。下面是一个简单的例子:
```R
# 安装和加载animation包
install.packages("animation")
library(animation)
# 创建一个函数,用于绘制动画烟花
draw_firework <- function() {
# 设置画布
par(mar = c(0, 0, 0, 0))
# 绘制烟花
for (i in 1:50) {
# 随机生成烟花的位置和颜色
x <- runif(1, -1, 1)
y <- runif(1, -1, 1)
col <- sample(colors(), 1)
# 绘制烟花
points(x, y, pch = 20, col = col, cex = 5)
# 添加延迟,控制动画速度
Sys.sleep(0.1)
}
}
# 创建动画
saveGIF({
for (i in 1:10) {
draw_firework()
}
}, movie.name = "firework.gif", interval = 0.1)
```
运行以上代码会生成一个名为`firework.gif`的动画文件,展示了10个动态烟花。你可以根据需要调整函数`draw_firework()`中的参数来自定义烟花的外观和行为。