Вам не нужен цикл для подсчета.Вот как подсчитать по таблице частот.
library(dplyr)
df %>% table
# rearrange to show mode
df %>% table %>% as_tibble() %>% arrange(desc(n))
Или в базе R вы можете использовать
tb=as.data.frame(table(df$Genres, df$Directors))
head(tb[order(tb$Freq, decreasing = T),])