用实线和蓝色画分段函数

在R语言中，要画出一个分段函数，通常我们会使用`lines()`或`points()`函数配合` segments()`函数来实现。这里以实线和蓝色为例，假设我们有一个简单的分段函数f(x) = {0 for x < 1; x - 1 for x >= 1}：

# 定义分段函数
x_values <- seq(from = -2, to = 4, by = 0.1)
y_values <- ifelse(x_values < 1, 0, x_values - 1)

# 绘制分段线
plot(x_values, type = 'n')  # 创建空白图，type='n'表示不画网格线
segments(x0 = c(0, Inf),  # 第一段从x=0到无穷大
         y0 = c(0, 0),
         x1 = c(1, Inf),
         y1 = c(0, 1),   # 第二段从x=1到无穷大，斜率为1
         col = "blue",  # 蓝色实线
         lty = 1)       # 线型为实线

# 添加虚线起点
points(x_values[1], y_values[1], pch = 19, col = "blue", cex = 1.5, lty = 1)

# 添加第二段终点的虚线
points(x_values[which.max(y_values)], y_values[which.max(y_values)], pch = 19, col = "blue", cex = 1.5, lty = 1)

# 标记转折点
text(x = 1, y = 0, labels = expression("分段点"), pos = 3)  # 在x=1处添加文本标签

这段代码首先创建了一个x轴范围的向量，然后计算每个值对应的y值。接着，我们使用`segments()`绘制了两条直线，一条是从原点到x=1，另一条是从x=1到无穷大。最后，我们在转折点处添加了标记，并设置了线型为实线，颜色为蓝色。