Функция для этого - aperm, из базового пакета. Это обобщение функции транспонирования t() на многомерные массивы. Для вашего примера вы бы назвали его следующим:
aperm
t()
new.data <- aperm(old.data, c(2,3,1))