Не преобразовывая структуру данных, вычислить на ее основе с помощью lapply() преобладающее направление для каждого месяца

Есть следующий датафрейм, требуется не преобразовывая структуру данных, вычислить на ее основе с помощью lapply() преобладающее направление для каждого месяца.

Узнать максимальную величину не составит труда, только вот как можно это совместить с колонкой направлений?