cómo encontrar el valor de la primera columna por valores máximos en la segunda columna (en una matriz)

Tengo esta matriz que estoy tratando de encontrar el firstPlacevalor por el valor / valores máximos en la freqcolumna:

este es el código que uso para obtener valores máximos:

mat1[which(mat1 == max(mat1[,2]), arr.ind = TRUE)]

producción:

Pero lo que realmente necesito es una Vectorde las"CR","MS"

EDITAR:

este código que genera la matriz:

firstPlace <- c(1:100)
secondPlace <- c(1:100)
thirdPlace <- c(1:100)
for(i in thirdPlace){
  players <- c("CR","MS","LM")
  chances <- c(0.3,0.3,0.4)
  firstPlace[i] <- sample(players,size = 1,replace = TRUE ,prob = chances)
  players <- players[!(players %in% firstPlace[i])]
  secondPlace[i] <- sample(players,1,replace = TRUE)
  thirdPlace[i] <- players[!(players %in% secondPlace[i])]
  players <- c("CR","MS","LM")
}
mat1 <- as.data.frame(table(firstPlace)) %>% print()