r语言简单代码放烟花

在R语言中，我们可以使用一些基本的绘图函数来模拟烟花的效果。首先，我们需要安装并加载`animation`和`ggplot2`这两个包来绘制动画和图形。

首先，我们可以创建一个空白画布，并定义烟花的初始位置和颜色等参数。

library(animation)
library(ggplot2)

win.graph(800, 800)
par(mar = rep(0, 4), mgp = rep(0, 3))
bg_color <- "black"
firework_color <- c("red", "blue", "green", "yellow")
x <- 400
y <- 400

接下来，我们可以定义一个自定义函数`draw_firework`来绘制烟花的效果。在这个函数中，我们可以使用`ggplot2`库的函数来绘制烟花的圆形、爆炸效果和尾迹。

draw_firework <- function(color) {
  p <- ggplot() +
    theme_void() +
    geom_point(aes(x, y), color = color, size = 10) +
    geom_point(aes(x, y), color = color, size = 5, alpha = 0.6) +
    geom_point(aes(x, y), color = color, size = 2, alpha = 0.6) +
    geom_point(aes(x, y), color = color, size = 1, alpha = 0.6)
  
  print(p)
}

最后，我们可以使用一个循环来不断更新烟花的位置，同时实现爆炸和尾迹效果，最终形成一个动画。

for (i in 1:100) {
  draw_firework(firework_color[i %% 4 + 1])
  Sys.sleep(0.1)
}

通过以上的代码，我们可以在R语言中绘制出一系列烟花的效果，并通过循环实现动画效果。当然，这只是一个简单的代码示例，你还可以根据自己的需求进行更多的修改和优化。祝你玩得开心！