wolfram-mathematica - 如何从许多列的较大列表中创建包含较少列的 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}}