将值绘制为跨越X的不等范围的矩形

Question

我想为两个非一致的x值范围绘制两个y值。我试过plot(rect())命令失败了。

我对x范围和y值的输入分别为：

[1, 2.7]   0.05325728

(2.7, 155]   0.05179712

非常感谢任何帮助！

Answer 1

将所有数据放入data.frame可能会对此有所帮助：

dat <- data.frame(x1=c(1,27),x2=c(27,155),y=c(0.05325728,0.05179712))
#  x1  x2          y
#1  1  27 0.05325728
#2 27 155 0.05179712

# specify a height for the rectangles
hght <- 0.01

with(dat,plot(NA,xlim=c(min(x1),max(x2)),ylim=c(min(y),max(y)+hght),type="n"))
with(dat,rect(x1,y,x2,y+hght))