[R-br] Organizar data.frame e sumarizar dados em transposição