如何使用循环在R中绘制多条线

# 创建一个空的图形窗口
plot(1, type="n", xlab="x", ylab="y")

# 定义要绘制的线的数量和颜色
num_lines <- 5
line_colors <- c("red", "blue", "green", "orange", "purple")

# 使用循环逐条绘制线
for (i in 1:num_lines) {
  # 生成随机的x和y坐标
  x <- seq(0, 10, length.out=100)
  y <- rnorm(100, mean=i, sd=0.5)
  
  # 绘制线
  lines(x, y, col=line_colors[i])
}

# 添加图例
legend("topright", legend=paste("Line", 1:num_lines), col=line_colors, lty=1)