Mathematica:获取每行不同列中的最小值

Mathematica: Getting the minimum value in different columns for each row

我已从 *.dat 文件中导入数据,格式如下

(日期、时间、x 值、y 值、z 值、向量和、x 频率、y 频率、z 频率):

18.02.2016 00:00:00 0.049896    0.013689    0.072710    0.086983    11  84  52
18.02.2016 00:01:00 0.048167    0.012106    0.061351    0.077970    149 102 52
18.02.2016 00:02:00 0.048765    0.012528    0.065641    0.081315    149 83  149
18.02.2016 00:03:00 0.048251    0.011859    0.060764    0.076809    149 7   149
18.02.2016 00:04:00 0.048007    0.012076    0.059913    0.076749    149 17  149
18.02.2016 00:05:00 0.048355    0.012759    0.067133    0.083064    149 149 149
18.02.2016 00:06:00 0.048973    0.013583    0.061963    0.079212    149 149 149
18.02.2016 00:07:00 0.057665    0.021322    0.105728    0.113308    9   149 149
18.02.2016 00:08:00 0.050364    0.013635    0.069397    0.084130    149 149 149
18.02.2016 00:09:00 0.048477    0.013015    0.061372    0.078093    149 9   9

现在我想获取每行的 x-,y-,z-Frequency 列的最小值并将其存储为单个列。你会怎么做?

首先找到每行每列的最小值:

minFreq = Min /@ data[[All, -3 ;; -1]]
(* {11, 52, 83, 7, 17, 149, 149, 9, 149, 9} *)

然后将列插入数据(例如):

Transpose@Insert[Transpose@data, minFreq, -1] // MatrixForm