Sortuj malejąco wszystkie kolumny data.frame

Bawię się tym przez chwilę, ale nie mogę znaleźć rozsądnego rozwiązania.

Chciałbym posortować w porządku malejącym wszystkie kolumny data.frame.

Przykładowe dane na przykład:

CustomData <- data.frame(Value1=rnorm(100,1,2), Value2=rnorm(100,2,3),
                         Value3=rexp(100,5), Value4=rexp(100,2))

Działa dla jednej kolumny:

CustomData[order(CustomData$Value1, decreasing=FALSE), ]

Jak sortować wszystkie dane kolumn w rozsądny sposób zmniejszając / zwiększając kolejność? Dzięki.

Wypróbowałem też coś takiego jak to, które opublikowałem w innym miejscu, ale nie działa tak, jak zostało to określone.

CustomData[do.call(order, as.list(CustomData)),] 

questionAnswers(1)

yourAnswerToTheQuestion