【代码】：
p1 = Plot[PDF[NormalDistribution[0, 1] , x], {x, -3, 3}]
l1 = BarChart[
Table[PDF[NormalDistribution[0, 1] , x] +
PDF[NormalDistribution[0, 1] , x]*RandomReal[{-0.2, 0.2}], {x, -3,
3, 0.1}]]
Show[p1, l1]
【问题】：请问如何将这两幅图合并未同一刻度，也就是条形图BarChart的横坐标压缩到【-3，3】的范围内呢？感激不尽！

【求助】用ListPlot代替Plot，可以绘制在同一图中，但坐标轴无法更改。用Ticks，FrameTicks之类的无法更改范围到-3，3内，难受

参考：https://community.wolfram.com/groups/-/m/t/2347152

一个比较高级的方法可参看《How can I make a list plot with bars?》：mathematica.stackexchange.com/a/163085/1871