Muito legal as dicas do colega Rogério. E acabei achando um outro porém no código que passei. Usei a coluna 'data$tc' como total, ao invés de calcular e pude observar que ela está incorreta nas duas últimas observações do exemplo (u e v).

Se optar por utilizar o código que passei, tem que corrigir a coluna 'tc". Tem várias formas de fazer isso, mas aproveitando as dicas do colega Rogério,  sugiro rodar o comando abaixo antes do loop (for).