This will give you the same values as RobustScaler but I don't know why the factor 2 is needed:
robustScale[list_] := Module[{l},
l = list - Median[list];
2 l/EuclideanDistance @@ Quantile[l, {0.25, 0.75}]
]
data = {{1., -2., 2.}, {-2., 1., 3.}, {4., 1., -2.}};
robustScale /@ Transpose[data] // Transpose // MatrixForm