如何使ListPlot画几个列表时横坐标接着画，不要从1开始

Question

帮助文档是这么写的，但是不知道不缺省是什么样子的

下面是两组数据

data1 = {61.2712, 11.1393, -13.8607, 42.7913, -13.8167, 9.53126, 22.8793, \
4.53126, -5.51272, 37.8353, 19.4433, 20.1393, 47.7473, 22.7913, \
-28.8607, -3.51272, -20.5567, 10.0953, -0.512724, 6.22726, -2.16473, \
3.13928, -7.16473, 2.83527, -15.5127, 19.4873, -15.5127, 31.1393, \
56.3592};

data2 = {1.22726, -8.77274, -10.5127, -2.07675, -10.5127, -5.42475, -22.4687, \
-31.4687, -23.7727, -7.12074, -32.2087, -26.5127, 11.2273, 46.1833, \
-5.38076, -15.4687, 2.87926, -17.4247, -7.42475, -15.5127, -3.72876, \
-10.7727, -10.0768, -28.7727, -3.81673, -15.4247, -10.4247, -17.1207, \
2.57525, -2.16473, -22.1207};

下面是我暂时想到的办法，但是用Show的时候坐标轴显示不全

p1 = ListPlot[Style[data1, Red], DataRange -> {1, 30}]
p2 = ListPlot[Style[data2, Blue], DataRange -> {31, 60}]
Show[p1,p2]

没有31--60的部分

Answer 1

data=Transpose/@{{Range[Length[data1]],data1},{Range[Length[data1]+1,Length[data1]+Length[data2]],data2}};
ListPlot[data, PlotLegends -> Automatic]

如果有多个数据集，可以按下面的方式写，方便拓展

data={data1,data2};
dataList=Transpose[{Range @@ #[[1]],#[[2]]}]&/@Transpose@{#+{1,0}&/@Partition[Accumulate[Length/@Prepend[data,{}]],2,1],data};
ListPlot[dataList,PlotLegends->Automatic]

可以直接在data列表里添加数据，图中点的顺序跟data中数据集的顺序相同

Answer 2

PlotRange -> All

 

Answer 3

建议试试Join[]函数将data1与data2连接起来，即

ListPlot[Join[data1, data2]]

Comments

我想要画出两种点的颜色不一样，这样连起来颜色就一样了吧

---

ListPlot[{Join[data1, data2], data1}, PlotStyle -> {Red, Blue}]这样？虽然有点笨- -

---

嗯嗯，这样可以的

Answer 4

最简单的方法：

添加PlotRange选项

Show[p1, p2, PlotRange -> {-70, 70}]