<div dir="ltr">Rodrigo, boa tarde!<div><br></div><div>Se você já tranpos a matriz/dataframe e  agregou a cada cinco linhas (tapply ou aggregate), pode transpor novamente o resultado o resultado para ficar com algo próximo a 370 colunas ou reformatar o banco com reshape::melt() para ficar com poucas colunas.</div>
<div><br></div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">### Exemplo de uso do comando melt()</font></div><div><div><font face="courier new, monospace">require(reshape)</font></div>
<div><font face="courier new, monospace">head(melt(tips))</font></div><div><font face="courier new, monospace">names(airquality) <- tolower(names(airquality))</font></div><div><font face="courier new, monospace">melt(airquality, id=c("month", "day"))</font></div>
<div><font face="courier new, monospace">names(ChickWeight) <- tolower(names(ChickWeight))</font></div><div><font face="courier new, monospace">melt(ChickWeight, id=2:4)</font></div><div><font face="courier new, monospace">### <\code></font></div>
<div><br></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br></div></div></div>