如何从较大列的较大列表中创建较少列的Mathematica列表

Question

我有一个列表“data1”：

{{1, 6, 4.5, 1, 141.793, 2.31634, 27.907}, {2, 7, 4.5, 1, 133.702, 2.28725, 26.7442}, {3, 5, 5, 1, 136.546, 2.33522, 25.5814}, {4, 8, 5, 1, 104.694, 2.27871, 24.4186}}

我想要做的是创建一个只包含每个元素的前两列的新表。所以我的新表将是：

{{1,6},{2,7},{3,5},{4,8}}

我试过了     data1[[All, 1][All, 2]]

和其他变化，但我不知道如何捕获所需的字段。谢谢你的帮助。

Answer 1

只需要一个范围或你想要的索引列表作为第二个参数，如下所示：

In[71]:= data[[All, {1, 2}]]
Out[71]= {{1, 6}, {2, 7}, {3, 5}, {4, 8}}