Base R中设置曲线各点不同颜色时type='l'失效问题求助

当使用Base R的plot()函数并设置type="l"时，col参数是为整条曲线指定单一颜色，只会读取颜色向量的第一个元素。而type="p"（点图）模式下，col是为每个点单独分配颜色，所以能正常显示对应颜色。

要实现分段颜色的曲线，需要手动绘制每个相邻点之间的线段，为每条线段分配对应颜色。步骤如下：

1. 准备数据 #

先定义你的数据和颜色向量，同时生成对应的x轴坐标（默认plot的x是1到数据长度）：

y_curve <- c(1,2,5,6,9,1)
colors <- c("#0000FF","#606060","#606060","#FF0000","#FF0000","#FF0000")
x <- seq_along(y_curve) # 生成x轴位置

2. 绘制空坐标轴框架 #

先画出只包含坐标轴的空图，避免后续重复绘制：

plot(x, y_curve, type = "n", xlab = "X", ylab = "Y") # 可自定义坐标轴标签

3. 分段绘制彩色线段 #

使用segments()函数批量绘制所有相邻点之间的线段，为每条线段分配对应颜色。这里我们用每个线段终点的颜色（即colors向量从第二个元素开始的部分）：

segments(
  x0 = x[-length(x)],    # 每条线段的起点x坐标
  y0 = y_curve[-length(y_curve)], # 每条线段的起点y坐标
  x1 = x[-1],            # 每条线段的终点x坐标
  y1 = y_curve[-1],      # 每条线段的终点y坐标
  col = colors[-1],      # 每条线段的颜色
  lwd = 1                # 可调整线宽
)

4. 添加彩色点（可选） #

如果需要保留彩色的点，再用points()函数绘制：

points(x, y_curve, col = colors, pch = 16) # pch设置点的形状，16是实心圆

适配大数据量（3000+观测值） #

上述方法使用向量化操作，无需循环，处理3000+观测值时效率很高，不会有性能问题。如果你的颜色是按区间划分（而非每个点对应），可以先生成线段的颜色向量，例如：

# 示例：前1500个点对应灰色，后1500+对应红色
seg_colors <- ifelse(x[-length(x)] <= 1500, "#606060", "#FF0000")
# 再传入segments的col参数即可

内容的提问来源于stack exchange，提问作者Lyuba