Extract 2d data

d2d1 = ({#[[which[[1]]]], #[[which[[2]]]]} &/@ data1) ; d2d2 = ({#[[which[[1]]]], #[[which[[2]]]]} &/@ data2) ;


Created by Mathematica  (September 8, 2003)