exemplo reproduzivel...................... set.seed(1) y = matrix(runif(500), nc=5) y = sweep(y, 1, rowSums(y), '/') y = t(apply(y, 1, cumsum)) library(plotrix) stackpoly(y) b -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120329/19d6a72e/attachment.html>