在R語言中，可以使用animation包來畫動態煙花。下面是一個簡單的例子：
# 安裝和加載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()中的參數來自定義煙花的外觀和行為。
