Suppose we have a list containing four sub-lists like that
data = {
{{1, -1}, {2, 5}, {3, 9}, {4, 2}},
{{1, -4}, {2, 0}, {3, 11}, {4, -1}},
{{1, 3}, {2, 2}, {3, 22}, {4, 1}},
{{1, 0}, {2, 0}, {3, -5}, {4, 7}}
};
Now I want to create a new list, data2
, containing the following
d1 = data[[1]];
d2 = data[[2]];
d3 = data[[3]];
d4 = data[[4]];
d11 = d1[[All, 1]];
d22 = d1[[All, 2]];
d33 = d2[[All, 2]];
d44 = d3[[All, 2]];
d55 = d4[[All, 2]];
data2 = Table[{d11[[i]], d22[[i]], d33[[i]], d44[[i]], d55[[i]]}, {i, 1, Length[d11]}]
which gives
{{1, -1, -4, 3, 0}, {2, 5, 0, 2, 0}, {3, 9, 11, 22, -5}, {4, 2, -1, 1, 7}}
I am pretty sure that there must be a quicker and much more elegant way of obtaining the new list.
Any suggestions?
Many thanks in advance!