{"id":30,"date":"2011-11-19T19:56:15","date_gmt":"2011-11-19T21:56:15","guid":{"rendered":"http:\/\/blog.ufes.br\/alessandrosarnaglia\/?p=30"},"modified":"2011-11-22T01:00:20","modified_gmt":"2011-11-22T03:00:20","slug":"como-criar-animacoes-em-r","status":"publish","type":"post","link":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/2011\/11\/19\/como-criar-animacoes-em-r\/","title":{"rendered":"Como criar anima\u00e7\u00f5es em R"},"content":{"rendered":"

Muitas vezes estamos interessados em criar gr\u00e1ficos animados. Dentre esses, destacam-se os arquivos com extens\u00e3o gif. No mundo da estat\u00edstica \u00e9 poss\u00edvel utilizar o R para essa finalidade. Para um tutorial de como instalar o R em ubuntu clique aqui<\/a>. Assumindo que o R esteja instalado no seu sistema operacional, vamos \u00e0 cria\u00e7\u00e3o de uma anima\u00e7\u00e3o bem simples!<\/p>\n

Primeiramente, vamos criar uma fun\u00e7\u00e3o graf<\/em> em R que n\u00e3o retorne nada, simplesmente gere gr\u00e1ficos! Para isso, digite o seguinte c\u00f3digo em R:<\/p>\n

graf=function(){\r\nrep=100;n=3000;media=NULL\r\nfor(i in 1:rep){\r\nv=rexp(n,1)\r\nmedia[i]=sqrt(n)*(mean(v)-1)\r\nhist(media,col='gray',xlab='n = 3000',main=paste(c('TCL, r\u00e9plica = ',i),collapse=''),prob=T,ylab='')\r\n}\r\n}<\/pre>\n
Para criarmos anima\u00e7\u00f5es em R necessitamos do pacote animation<\/em>. Assumo que voc\u00ea n\u00e3o tem esse pacote. Para instal\u00e1-lo digite o seguinte comando no R.<\/p>\n
install.packages(\"animation\")<\/pre>\n
Se voc\u00ea j\u00e1 tiver esse pacote instalado pule a etapa acima. Agora \u00e9 necess\u00e1rio requerer o pacote animation<\/em> atrav\u00e9s do seguinte comando:<\/p>\n
require(animation)<\/pre>\n
Vamos a cria\u00e7\u00e3o da anima\u00e7\u00e3o de fato. Assumindo que a fun\u00e7\u00e3o graf<\/em> j\u00e1 foi digitada, para criar uma anima\u00e7\u00e3o com os gr\u00e1ficos dessa fun\u00e7\u00e3o, digite o seguinte c\u00f3digo em R:<\/p>\n
saveGIF(graf(),interval=<interv>,movie.name=<nome>,outdir=<diret>)<\/pre>\n
onde no comando acima:<\/p>\n
    \n
  • <interv> \u00e9 o tempo, em segundos, que levar\u00e1 para um gr\u00e1fico passar para outro. Por exemplo, interval=0.05<\/code>;<\/li>\n
  • <nome> \u00e9 o nome com o qual a anima\u00e7\u00e3o ser\u00e1 salva. Por exemplo, movie.name=animacao.gif<\/code>; e<\/li>\n
  • <diret> \u00e9 o diret\u00f3rio onde a anima\u00e7\u00e3o ser\u00e1 salva. Por exemplo, outdir='\/home'<\/code>.<\/li>\n<\/ul>\n
    Pronto, depois dessas etapas, voc\u00ea ter\u00e1 criado uma anima\u00e7\u00e3o atrav\u00e9s do R! A sua anima\u00e7\u00e3o ficar\u00e1 parecida com o gif abaixo.<\/p>\n
    \"animation\"<\/p>\n","protected":false},"excerpt":{"rendered":"
    Muitas vezes estamos interessados em criar gr\u00e1ficos animados. Dentre esses, destacam-se os arquivos com extens\u00e3o gif. No mundo da estat\u00edstica \u00e9 poss\u00edvel utilizar o R para essa finalidade. Para um tutorial de como instalar o R em ubuntu clique aqui. Assumindo que o R esteja instalado no seu sistema operacional, vamos \u00e0 cria\u00e7\u00e3o de uma anima\u00e7\u00e3o bem simples!
    \nPrimeiramente, vamos criar uma fun\u00e7\u00e3o graf em R que n\u00e3o retorne nada, simplesmente gere gr\u00e1ficos! Para isso, digite o seguinte c\u00f3digo em R:
    \ngraf=function(){
    \nrep=100;n=3000;media=NULL
    \nfor(i in 1:rep){
    \nv=rexp(n,1)
    \nmedia[i]=sqrt(n)*(mean(v)-1)
    \nhist(media,col=’gray’,xlab=’n = 3000′,main=paste(c(‘TCL, r\u00e9plica = ‘,i),collapse=”),prob=T,ylab=”)
    \n}
    \n}
    \nPara criarmos anima\u00e7\u00f5es em R necessitamos do pacote animation. Assumo que voc\u00ea n\u00e3o tem esse pacote. Para instal\u00e1-lo digite o seguinte comando no R.
    \ninstall.packages(“animation”)
    \nSe voc\u00ea j\u00e1 tiver esse pacote instalado pule a etapa acima. Agora \u00e9 necess\u00e1rio requerer o pacote animation atrav\u00e9s do seguinte comando:
    \nrequire(animation)
    \nVamos a cria\u00e7\u00e3o da anima\u00e7\u00e3o de fato. Assumindo que a fun\u00e7\u00e3o graf j\u00e1 foi digitada, para criar uma anima\u00e7\u00e3o com …<\/p>\n","protected":false},"author":48,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"_uag_custom_page_level_css":"","footnotes":""},"categories":[4],"tags":[],"class_list":["post-30","post","type-post","status-publish","format-standard","hentry","category-r"],"uagb_featured_image_src":{"full":false,"thumbnail":false,"medium":false,"medium_large":false,"large":false,"1536x1536":false,"2048x2048":false,"post-thumbnail":false},"uagb_author_info":{"display_name":"Alessandro Jos\u00e9 Queiroz Sarnaglia","author_link":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/author\/alessandro-sarnaglia\/"},"uagb_comment_info":64,"uagb_excerpt":"Muitas vezes estamos interessados em criar gr\u00e1ficos animados. Dentre esses, destacam-se os arquivos com extens\u00e3o gif. No mundo da estat\u00edstica \u00e9 poss\u00edvel utilizar o R para essa finalidade. Para um tutorial de como instalar o R em ubuntu clique aqui. Assumindo que o R esteja instalado no seu sistema operacional, vamos \u00e0 cria\u00e7\u00e3o de uma…","_links":{"self":[{"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/posts\/30","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/users\/48"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/comments?post=30"}],"version-history":[{"count":38,"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/posts\/30\/revisions"}],"predecessor-version":[{"id":57,"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/posts\/30\/revisions\/57"}],"wp:attachment":[{"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/media?parent=30"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/categories?post=30"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.ufes.br\/alessandrosarnaglia\/wp-json\/wp\/v2\/tags?post=30"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}