代码如下：
NumberLinePlot[{Around[17.9, 1.9], Around[18.8, {3.0, 2.5}],
Around[20, 2], Around[17.5, 1.5]},
PlotLegends -> {"a", "b", "c", "d"}]
两个问题，感谢：
1 我这样画出来数轴老是从0开始，我想让它的范围变成14-22，查过帮助试了Plotrange没成功，如图1。
2 怎么改变上面数据线的格式？我想让它像误差棒一样边界伸出来一截，如图2里的竖着的（图来自网络）。因为我希望误差棒是横着的，所以没法一般地处理。

代码更新一下，用了PlotRange和Ticks之后：
NumberLinePlot[{Around[17.9, 1.9], Around[18.8, {3.0, 2.5}],
Around[20, 2], Around[17.5, 1.5]}, Ticks -> {{14, 16, 18, 20, 22}},
PlotRange -> {14, 22}, PlotLegends -> {"a", "b", "c", "d"}]

可以用 Show 改图形的 PlotRange
ListPlot 支持 {x,y} 的形式