table(tabela$corrida)

data.frame(table(tabela$corrida) )

library(tidyverse)
    corridaCounts <- tabela %>%
    group_by(corrida) %>%
    summarise(n = n())

tabelaTally <- tablea %>%
    left_join(corridaCounts, by = "indicado")