R语言两步（阶梯）函数绘图实现及代码方案咨询

核心实现思路 #

你当前构造的数据集本身就是分段常值（阶梯）函数的标准输入：a存储每段阶梯的左边界，b存储对应段的右边界，y存储每段区间上的恒定函数值。
绘制时不需要对原始数据做插值或拟合，只要遵循两个绘制规则就能得到正确的阶梯效果：

• 逐段绘制每个x区间上的水平线段，对应y值保持和当前分段一致
• 在相邻分段的边界位置，绘制垂直方向的衔接竖线，体现函数值的跳变

可直接运行的代码方案 #

基础R原生绘图实现 #

首先加载你定义的原始数据集：

a <- c(1,3,5,7,9,11,12)
b <- c(2,4,6,8,10,12,14)
y <- c(1/7,2/7,3/7,4/7,5/7,6/7,7/7)

绘图代码如下，不需要依赖额外安装的第三方包：

# 初始化画布，匹配x和y的实际取值范围
plot(NULL, 
     xlim = c(min(a), max(b)), 
     ylim = c(0, 1),
     xlab = "x轴取值", 
     ylab = "函数值", 
     main = "自定义分段阶梯函数")
# 逐段绘制水平阶梯线
for (i in seq_along(y)) {
  segments(x0 = a[i], x1 = b[i], y0 = y[i], y1 = y[i], lwd = 2)
}
# 绘制相邻分段间的垂直跳变衔接线
for (i in 1:(length(y)-1)) {
  segments(x0 = b[i], x1 = b[i], y0 = y[i], y1 = y[i+1], lwd = 2)
}
# 补充首尾端的边界垂直线，完善阶梯轮廓
segments(x0 = a[1], x1 = a[1], y0 = 0, y1 = y[1], lwd = 2)
segments(x0 = b[length(b)], x1 = b[length(b)], y0 = y[length(y)], y1 = 1, lwd = 2)

ggplot2美化版本实现 #

如果需要调整配色、更换可视化主题，可使用ggplot2实现同等效果，代码如下：

library(ggplot2)
# 整理水平分段的绘图数据
step_df <- data.frame(
  left_edge = a,
  right_edge = b,
  seg_value = y
)
# 构造垂直跳变衔接点的数据
jump_df <- data.frame(
  jump_x = b[-length(b)],
  y_start = y[-length(y)],
  y_end = y[-1]
)
ggplot(step_df) +
  # 绘制每段的水平阶梯线
  geom_segment(aes(x = left_edge, xend = right_edge, y = seg_value, yend = seg_value), 
               linewidth = 1, color = "#2c3e50") +
  # 绘制相邻分段间的垂直跳变衔接线
  geom_segment(data = jump_df,
               aes(x = jump_x, xend = jump_x, 
                   y = y_start, yend = y_end),
               linewidth = 1, color = "#2c3e50") +
  scale_x_continuous(limits = c(min(a), max(b))) +
  scale_y_continuous(limits = c(0, 1), breaks = y) +
  labs(x = "x轴取值", y = "函数值", title = "ggplot2绘制的阶梯函数") +
  theme_classic()

通用调整提示 #

如果需要绘制无间隙的连续标准阶梯效果，只需要调整a向量的取值，让每个分段的左端点和上一个分段的右端点完全对齐（即满足a[i+1] = b[i]），消除分段之间的空隙，即可让各段水平线自然衔接，整套绘图逻辑不需要改动。当前你构造的分段区间（如第一阶段右端点为2，第二阶段左端点为3）存在1个单位的间隙，直接运行代码会保留这个空隙的绘制效果。
如果需要实现仅含两个固定取值的经典“两步”阶梯形态，只需要根据分段的区间划分，将y向量重新赋值为两个固定水平值即可，同样不需要调整绘图框架。

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