[R-br] Extrair por sorteio linhas de um data frame dentro de cada nível de um fator