Извлечение правильных размеров с помощью конвейера Dplyr

Вот краткий снимок фрейма данных, с которым я работаю:

Я пытаюсь выделить лучшего игрока в команде с самым высоким «PER». Мое лучшее предположение:

test = season_advanced_stats %>%
  filter(Tm != "TOT" & MP > 200) %>%
  select(Player, Tm, PER) %>%
  group_by(Tm) %>%
  top_n(n=1)

К сожалению, размеры неверны, и они 31 X 3 вместо 30 X 3 (в НБА 30 уникальных команд). Когда я использую этот конвейер, оказывается, что на самом деле он не группируется по командам, поскольку Филадельфия появляется дважды, и я думаю, что это вызывает проблему.