<div dir="ltr"><div>Usando o ggplot2, eu achei relativamente mais fácil fazer gráficos circulares que com outros pacotes, como o circ e o circular. Basta você fazer um gráfico normal e depois adicionar <span style="color:rgb(0,136,0)">+</span> coord_polar<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)<br></span></div><div>Segue uns exemplos que eu estava testando, talvez você ache interessante.<br></div><div><pre class="" style="font-family:monospace"><span style="color:rgb(0,0,255);font-weight:bold">library</span><span style="color:rgb(0,136,0)">(</span><span style="color:rgb(255,0,0)">"ggplot2"</span><span style="color:rgb(0,136,0)">)</span>
dados<span style="color:rgb(0,136,0)"><-</span><span style="color:rgb(0,0,255);font-weight:bold">data.<span style="">frame</span></span><span style="color:rgb(0,136,0)">(</span>preditor<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">1</span><span style="color:rgb(0,136,0)">:</span><span style="color:rgb(255,0,0)">20</span>,resposta<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(0,0,255);font-weight:bold">runif</span><span style="color:rgb(0,136,0)">(</span><span style="color:rgb(255,0,0)">20</span>,<span style="color:rgb(255,0,0)">5</span>,<span style="color:rgb(255,0,0)">10</span><span style="color:rgb(0,136,0)">)</span>,grupo<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(0,0,255);font-weight:bold">rep</span><span style="color:rgb(0,136,0)">(</span><span style="color:rgb(255,0,0)">1</span><span style="color:rgb(0,136,0)">:</span><span style="color:rgb(255,0,0)">4</span>,each<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">5</span><span style="color:rgb(0,136,0)">)</span>,linha<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(0,0,255);font-weight:bold">runif</span><span style="color:rgb(0,136,0)">(</span><span style="color:rgb(255,0,0)">20</span>,<span style="color:rgb(255,0,0)">8</span>,<span style="color:rgb(255,0,0)">12</span><span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(0,0,255);font-weight:bold">head</span><span style="color:rgb(0,136,0)">(</span>dados<span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(34,139,34)">## Gráfico de barras</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>resposta<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_bar<span style="color:rgb(0,136,0)">(</span>stat<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"identity"</span><span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(34,139,34)">## Separando por grupos</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>resposta,fill<span style="color:rgb(0,136,0)">=</span>grupo<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_bar<span style="color:rgb(0,136,0)">(</span>stat<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"identity"</span><span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(34,139,34)">##ggplot(data=dados, aes(x=preditor, y=resposta)) + geom_bar(aes(fill=grupo),stat="identity")</span>
<span style="color:rgb(34,139,34)">## Adicionando um contorno preto, e retirando a legenda</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>resposta,fill<span style="color:rgb(0,136,0)">=</span>grupo<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_bar<span style="color:rgb(0,136,0)">(</span>colour<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"black"</span>,stat<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"identity"</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(34,139,34)">##Gráfico de linhas</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_line<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_line<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_point<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(34,139,34)">##Combinando os dois</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>resposta,fill<span style="color:rgb(0,136,0)">=</span>grupo<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_bar<span style="color:rgb(0,136,0)">(</span>colour<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"black"</span>,stat<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"identity"</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span>
geom_line<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_point<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span>
<span style="color:rgb(34,139,34)">##Transformando em uma figura circular</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>resposta,fill<span style="color:rgb(0,136,0)">=</span>grupo<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_bar<span style="color:rgb(0,136,0)">(</span>colour<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"black"</span>,stat<span style="color:rgb(0,136,0)">=</span><span style="color:rgb(255,0,0)">"identity"</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span>
geom_line<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_point<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">+</span>coord_polar<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_line<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_point<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> coord_polar<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span>
ggplot<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,0,255);font-weight:bold">data</span><span style="color:rgb(0,136,0)">=</span>dados, aes<span style="color:rgb(0,136,0)">(</span>x<span style="color:rgb(0,136,0)">=</span>preditor, y<span style="color:rgb(0,136,0)">=</span>linha<span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_line<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> geom_point<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> guides<span style="color:rgb(0,136,0)">(</span>fill<span style="color:rgb(0,136,0)">=</span>FALSE<span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> coord_polar<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(0,136,0)">)</span> <span style="color:rgb(0,136,0)">+</span> ylim<span style="color:rgb(0,136,0)">(</span><span style="color:rgb(255,0,0)">0</span>,<span style="color:rgb(255,0,0)">12</span><span style="color:rgb(0,136,0)">)</span><span style="color:rgb(0,136,0)"></span></pre><br></div><span style="color:rgb(0,136,0)"></span></div><div class="gmail_extra"><br><div class="gmail_quote">Em 6 de junho de 2016 12:56, Cassiano <span dir="ltr"><<a href="mailto:cassianosr@gmail.com" target="_blank">cassianosr@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><span style="font-size:12.8px">Prezados,</span><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Tenho uns dados coletados durante o ano e fiz análise <span>circular</span>.</div><div style="font-size:12.8px">Quanto à análise, está tranquilo, mas não consigo plotar no gráfico a variação em torno da média.</div><div style="font-size:12.8px">Com o "arrows.<span>circular</span>" eu consegui inserir a média no gráfico, mas não encontrei nada para incluir a variação em torno da média. </div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Desde já agradeço.</div><div style="font-size:12.8px">cassiano</div><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"><br></blockquote></div>-- <br><div data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div style="color:rgb(255,0,0)"><span style="color:rgb(0,0,0)">=======================================</span></div>Cassiano S. Rosa<div><div style="font-family:arial;font-size:small">CRBio: 104117/04-D</div><div style="font-family:arial;font-size:small"><br></div><div dir="ltr" style="font-family:arial;font-size:small"><div style="font-family:arial,sans-serif;font-size:12.8px;line-height:21.3px;color:rgb(68,68,68)"><span style="line-height:22.72px;text-align:center"><font style="line-height:normal"><div style="line-height:21.3px;display:inline!important"><span style="line-height:22.72px"><font style="line-height:normal" face="trebuchet ms, sans-serif"><div style="line-height:21.3px;display:inline!important">Universidade Federal do Triângulo Mineiro (UFTM), </div></font></span></div></font></span></div><div style="font-family:arial,sans-serif;font-size:12.8px;line-height:21.3px;color:rgb(68,68,68)"><span style="line-height:22.72px;text-align:center"><font style="line-height:normal"><div style="line-height:21.3px;display:inline!important"><span style="line-height:22.72px"><font style="line-height:normal" face="trebuchet ms, sans-serif"><div style="line-height:21.3px;display:inline!important"><i>campus</i> Iturama-MG</div></font></span></div></font></span></div><div style="font-family:arial,sans-serif;font-size:12.8px;line-height:21.3px;color:rgb(68,68,68);text-align:center"><font face="trebuchet ms, sans-serif"><span style="line-height:22.72px"><font style="line-height:normal"><div style="text-align:left;line-height:21.3px"><span style="line-height:21.3px;font-size:12.8px">Avenida Rio Paranaíba, 1241, Centro, 38280-000</span><br></div><div style="text-align:left;line-height:21.3px"><span style="line-height:21.3px;font-size:12.8px">Tel: (34)3415-2512</span></div></font></span></font></div></div><div style="text-align:justify;text-indent:30px"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><span style="font-size:11.8182px"><br></span></font></div><div><div><div><span style="font-family:Arial,Helvetica,sans-serif"><span style="text-align:left;color:rgb(102,102,102);vertical-align:top"><a href="http://lattes.cnpq.br/3030825329622014" target="_blank"><font size="2">Lattes</font></a></span></span></div><div><a href="http://scholar.google.com/citations?user=JmELzOMAAAAJ" target="_blank"><font size="2">Scholar Google</font></a></div></div><div><font size="2"><a href="https://uftm.academia.edu/CassianoRosa" target="_blank">Academia.edu</a></font><br></div><div><a href="https://www.researchgate.net/profile/Cassiano_Rosa" target="_blank">Researchgate</a><br></div><div><div><br>=======================================<br></div></div></div></div></div></div></div></div></div></div></div></div>
</div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a 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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>