exemplo reproduzivel......................<div><br></div><div>set.seed(1)</div><div>y = matrix(runif(500), nc=5)</div><div>y = sweep(y, 1, rowSums(y), '/')</div><div>y = t(apply(y, 1, cumsum))</div><div><br></div><div>

library(plotrix)</div><div>stackpoly(y)</div><div><br></div><div><br></div><div>b</div>