<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Olá Geovane,<br><br>Seguindo o site abaixo, consegui fazer algo próximo com os seus dados. Você vai precisar dos pacotes <b>plyr </b>e <b>ggplot2</b>:<br><br><a href="http://www.cookbook-r.com/Graphs/Plotting_means_and_error_bars_%28ggplot2%29/" target="_blank">http://www.cookbook-r.com/Graphs/Plotting_means_and_error_bars_%28ggplot2%29/</a><br><br><br><br>#Função para criar um sumário estatístico dos dados (atente para o NC de 95%)<br><br>summarySE <- function(data=NULL, measurevar, groupvars=NULL, na.rm=FALSE, conf.interval=.95, .drop=TRUE) {<br> require(plyr)<br> <br> # New version of length which can handle NA's: if na.rm==T, don't count them<br> length2 <- function (x, na.rm=FALSE) {<br> if (na.rm) sum(!is.na(x))<br> else length(x)<br> }<br> <br> # This is does the summary; it's not easy to understand...<br> datac <- ddply(data, groupvars, .drop=.drop,<br> .fun= function(xx, col, na.rm) {<br> c( N = length2(xx[,col], na.rm=na.rm),<br> mean = mean (xx[,col], na.rm=na.rm),<br> sd = sd (xx[,col], na.rm=na.rm)<br> )<br> },<br> measurevar,<br> na.rm<br> )<br> <br> # Rename the "mean" column <br> datac <- rename(datac, c("mean"=measurevar))<br> <br> datac$se <- datac$sd / sqrt(datac$N) # Calculate standard error of the mean<br> <br> # Confidence interval multiplier for standard error<br> # Calculate t-statistic for confidence interval: <br> # e.g., if conf.interval is .95, use .975 (above/below), and use df=N-1<br> ciMult <- qt(conf.interval/2 + .5, datac$N-1)<br> datac$ci <- datac$se * ciMult<br> <br> return(datac)<br>}<br><br><br># Ao aplicar a função seus dados, alguns NAs são retornados pois para algumas combinações de raça e sexo, há apenas um indivíduo<br>dadosSE <- summarySE(dados, measurevar="Peso", groupvars=c("Raça","Sexo"))<br><br>library(ggplot2)<br><br># Error bars represent standard error of the mean<br>ggplot(dadosSE, aes(x=Raça, y=Peso, fill=Sexo)) + <br> geom_bar(position=position_dodge(), stat="identity") +<br> geom_errorbar(aes(ymin=Peso-se, ymax=Peso+se),<br> width=.2, # Width of the error bars<br> position=position_dodge(.9))<br><br><br><br><br><br>---<div><br></div><div>Atenciosamente,</div><div>Raphael Saldanha</div><div><br></div><div>rfsaldanha@outlook.com</div><br><br><div><hr id="stopSpelling">Date: Wed, 19 Jun 2013 04:22:28 -0700<br>From: geovanecb@yahoo.com.br<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: [R-br] erro bar<br><br><div style="color:#000;background-color:#fff;font-family:verdana, helvetica, sans-serif;font-size:8pt;"><div><br><span></span></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br><span></span></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><span>Olá pessoal tudo bem, como faço para construir o seguinte erro bar. Quero construir-lo da seguinte forma:</span></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br><span></span></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br><span></span></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;">no eixo x gostaria de ter a variável raça e no eixo y a variável raça e a legenda por sexo.<br></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br></div><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;">
</div><table border="0" cellpadding="0" cellspacing="0" width="192"><colgroup><col style="width:48pt;" span="3" width="64">
</colgroup><tbody><tr style="height:12.75pt;" height="17">
<td class="ecxxl22" style="height:12.75pt;width:48pt;" height="17" width="64">Raça</td>
<td class="ecxxl22" style="width:48pt;" width="64">Peso</td>
<td class="ecxxl22" style="width:48pt;" width="64">Sexo</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Branco</td>
<td align="right">54</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Branco</td>
<td align="right">89</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Branco</td>
<td align="right">65</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Negro</td>
<td align="right">89</td>
<td>H</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Branco</td>
<td align="right">80</td>
<td>H</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Negro</td>
<td align="right">83</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Negro</td>
<td align="right">65</td>
<td>H</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Negro</td>
<td align="right">69</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Amarela<span style=""> </span></td>
<td align="right">68</td>
<td>H</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Amarela<span style=""> </span></td>
<td align="right">98</td>
<td>H</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Parda</td>
<td align="right">120</td>
<td>H</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Parda</td>
<td align="right">150</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Parda</td>
<td align="right">115</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Indígena</td>
<td align="right">56</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Indígena</td>
<td align="right">59</td>
<td>M</td>
</tr>
<tr style="height:12.75pt;" height="17">
<td style="height:12.75pt;" height="17">Branco</td>
<td align="right">88</td>
<td>M</td>
</tr>
</tbody></table><div style="color:rgb(0, 0, 0);font-size:10.6667px;font-family:verdana,helvetica,sans-serif;background-color:transparent;font-style:normal;"><br><span></span></div><br><br>obrigado pessoal<br></div><br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div> </div></body>
</html>