<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><span>Boa noite Fernando!</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><br><span></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><span>Acho que me expressei mal. Eu sei como faz uma figura animada, eu gostaria apenas de comprimir os tres loops em apenas um. De qualquer modo obrigado pela ajuda.</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><br><span></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style:
normal;"><span>(S,f,P)</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><span>Allaman</span></div><div> </div><div style="background-color:transparent;" align="center"><font style="background-color:transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\begin{signature}</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2"><<>>=</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco,
monospace, sans-serif" size="2">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual de Santa Cruz</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5596</font></div><div style="text-align:left;background-color:transparent;"
align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">@</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\end{signature}</font></font></div><div><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 12pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Fernando Mayer <fernandomayer@gmail.com><br> <b><span style="font-weight:
bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br; Ivan Bezerra Allaman <ivanalaman@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 28 de Agosto de 2012 22:52<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Ajuda em ilustração animada!<br> </font> </div> <br>Ivan,<br><br>não sei se é bem isto que você se refere, mas vc pode usar o ffmpeg<br>para fazer um "filme" com vários gráficos.<br><br>Neste exemplo [1] ele mostra, na última linha, o comando utilizado<br>para gerar o vídeo.<br><br>[1] <a href="http://www.drewconway.com/zia/?p=2800" target="_blank">http://www.drewconway.com/zia/?p=2800</a><br><br>[]s,<br><br><br>---<br>Fernando Mayer<br>Universidade Federal de Santa Catarina - UFSC<br>Departamento de Ecologia e Zoologia - ECZ/CCB<br>URL: <a href="http://fernandomayer.github.com/" target="_blank">http://fernandomayer.github.com</a><br>e-mail: fernandomayer [@]
gmail.com<br><br><br>2012/8/28 Ivan Bezerra Allaman <<a ymailto="mailto:ivanalaman@yahoo.com.br" href="mailto:ivanalaman@yahoo.com.br">ivanalaman@yahoo.com.br</a>>:<br>> Bom dia senhores!<br>><br>> Estou fazendo uma ilustração animada para demonstrar que a média é<br>> influenciada por valores extremos com o seguinte código:<br>><br>> png(file='exemplos/med0%1d.png',width=500,height=250)<br>> x1 <- list()<br>> medias <- list()<br>> for(i in 1:10){<br>> x <- c(7,10,13.4,15.3,17.6,19.5,20.6,21.1)<br>> y <- rep(0,8)<br>> x1[[i]] <- c(x,i+21.1)<br>> medias[[i]] <- mean(x1[[i]])<br>> plot(x,y,ylim=c(0,5),xlim=c(0,35),ylab='',xlab='',axes=F)<br>> axis(1)<br>> par(xpd=TRUE)<br>> points(mean(x),-0.2,col='blue',lwd=10,pch=2)<br>>
points(x1[[i]][9],0,col='red',lwd=7,cex=0.1)<br>> points(medias[[i]],-0.2,col='blue',lwd=10,pch=2)<br>> }<br>> dev.off()<br>><br>> png(file='exemplos/med1%1d.png',width=500,height=250)<br>> x2 <- list()<br>> medias2 <- list()<br>> for(j in seq(10,1,-1)){<br>> x2[[j]] <- c(12.3-j,x)<br>> medias2[[j]] <- mean(x2[[j]])<br>> plot(x,y,ylim=c(0,5),xlim=c(0,35),ylab='',xlab='',axes=F)<br>> axis(1)<br>> par(xpd=TRUE)<br>> points(mean(x),-0.2,col='blue',lwd=10,pch=2)<br>> points(x1[[j]][9],0,col='red',lwd=7,cex=0.1)<br>> points(medias[[j]],-0.2,col='blue',lwd=10,pch=2)<br>> }<br>> dev.off()<br>><br>> png(file='exemplos/med2%1d.png',width=500,height=250)<br>> for(j in 1:10){<br>> x2[[j]] <- c(12.3-j,x)<br>> medias2[[j]] <-
mean(x2[[j]])<br>> plot(x,y,ylim=c(0,5),xlim=c(0,35),ylab='',xlab='',axes=F)<br>> axis(1)<br>> par(xpd=TRUE)<br>> points(mean(x),-0.2,col='blue',lwd=10,pch=2)<br>> points(x2[[j]][1],0,col='red',lwd=7,cex=0.1)<br>> points(medias2[[j]],-0.2,col='blue',lwd=10,pch=2)<br>> }<br>> dev.off()<br>><br>> É possível juntar isso em um único código?<br>><br>> Desde já grato por qualquer ajuda.<br>><br>> (S,f,P)<br>> Allaman<br>><br>> \begin{signature}<br>> <<>>=<br>> Prof. Dr. Ivan Bezerra Allaman<br>> Universidade Estadual de Santa Cruz<br>> Departamento de Ciências Exatas e Tecnológicas<br>> Ilhéus/BA - Brasil<br>> Fone: +55 73 3680-5596<br>> E-mail: <a ymailto="mailto:ivanalaman@yahoo.com.br" href="mailto:ivanalaman@yahoo.com.br">ivanalaman@yahoo.com.br</a>/<a
ymailto="mailto:ivanalaman@gmail.com" href="mailto:ivanalaman@gmail.com">ivanalaman@gmail.com</a><br>> @<br>> \end{signature}<br>><br>> _______________________________________________<br>> R-br mailing list<br>> <a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código<br>> mínimo reproduzível.<br><br><br> </div> </div> </div></body></html>