r语言程序实现 随机游动轨道

模拟5条随机游动轨道，画出模拟图
怎样能在一张图上画出五条轨道啊
r语言时间序列分析

# 安装并加载所需的包
install.packages("ggplot2")  # 如果未安装ggplot2包，请先安装
library(ggplot2)

# 设置模拟参数
num_points <- 100  # 轨迹点的数量
num_trajectories <- 5  # 轨迹的数量

# 创建空的数据框用于存储轨迹数据
data <- data.frame(x = numeric(num_points),
                   y = numeric(num_points),
                   trajectory = factor(rep(1:num_trajectories, each = num_points)))

# 模拟随机游动轨迹
set.seed(123)  # 设置随机数种子，以便结果可复现
for (i in 1:num_trajectories) {
  # 初始化每条轨迹的起始点
  x <- 0
  y <- 0
  
  # 模拟轨迹点
  for (j in 1:num_points) {
    x <- x + rnorm(1)  # 在x方向上随机游动
    y <- y + rnorm(1)  # 在y方向上随机游动
    data[(i - 1) * num_points + j, ] <- c(x, y, i)  # 存储轨迹点的坐标和对应的轨迹编号
  }
}

# 绘制轨迹图
ggplot(data, aes(x = x, y = y, color = trajectory)) +
  geom_path() +
  theme_minimal()

运行上述代码后，将会生成一张包含五条随机游动轨迹的图形。每条轨迹使用不同的颜色进行标识。你可以根据需要调整num_points和num_trajectories参数来控制轨迹点的数量和轨迹的数量。如果你未安装ggplot2包，请先运行install.packages("ggplot2")进行安装。