wolfram-mathematica - 在 Mathematica 的 MapAt 中使用 All

Question

我经常有一个对的列表，如

data = {{0,0.0},{1,12.4},{2,14.6},{3,25.1}}

我想做点什么，比如 Rescale , 到所有第二个元素而不接触第一个元素。我知道的最简洁的方法是:

Transpose[MapAt[Rescale, Transpose[data], 2]]

必须有一种方法可以在没有这么多的情况下做到这一点 Transpose ing。我的愿望是让这样的事情起作用:

MapAt[Rescale, data, {All, 2}]

但我的理解是 MapAt需要 Position - 样式规范而不是 Part式规范。什么是正确的解决方案？
澄清，
我正在寻找一种不必重复自己的解决方案，因此缺少双 Transpose或双 [[All,2]] ，因为我认为重复是一个信号，我不是在做最简单的事情。但是，如果消除重复需要引入中间变量或命名函数或其他额外的复杂性，那么转置/取消转置解决方案可能已经正确。

Answer 1

使用 Part :

data = {{0, 0.0}, {1, 12.4}, {2, 14.6}, {3, 25.1}}

data[[All, 2]] = Rescale @ data[[All, 2]];

data

如果需要，请先创建副本。 ( data2 = data 然后 data2[[All, 2]] 等)

修改我的答案以跟上 ruebenko 的步伐，这也可以变成一个函数:

partReplace[dat_, func_, spec__] :=
  Module[{a = dat},
    a[[spec]] = func @ a[[spec]];
    a
  ]

partReplace[data, Rescale, All, 2]

这是很一般的设计。