R语言：绘制多色折线图，分组显示，自动调整Y轴范围

使用以下代码来实现所需的功能：\n\nR\n# 创建示例数据\nx <- 1:10\ny <- c(2, 4, 6, 8, 10, 8, 6, 4, 2, 0)\nS <- rep(1:3, each = 5)\n\n# 绘制第一个折线图\nplot(x, y, type = "n", ylim = range(y), xlim = range(x))\nlines(x[S == 1], y[S == 1], col = "red")\n\n# 绘制第二个折线图\nlines(x[S == 2], y[S == 2], col = "green")\n\n# 绘制第三个折线图\nlines(x[S == 3], y[S == 3], col = "blue")\n\n\n这段代码首先创建了示例数据，其中x为横坐标，y为纵坐标，S为分组变量。然后使用plot函数创建一个空白的坐标系，并设置了y轴的上下限值为y的范围。接下来使用lines函数分别绘制了三条折线图，其中根据S的取值来选择不同的颜色。将三个图重合在一起的效果是通过在同一个坐标系上不断添加新的线条实现的。