<!DOCTYPE html>
<html>
<head>
<title></title>
</head>
<body><div>Marcus, eu nunca tinha atentado para o fato de a função rep() aceitar vetores como argumentos! Isso simplifica um bocado algumas rotinas minhas!...</div>
<div><br></div>
<div id="sig4487139"><div id="signature" class="signature"><a href="http://lattes.cnpq.br/9234772336296638" title="Currículo Lattes">Leonardo Ferreira Fontenelle</a><br></div>
</div>
<div><br></div>
<div><br></div>
<div>Em Qui 28 jul. 2016, às 21:56, Marcus Nunes via R-br escreveu:<br></div>
<blockquote type="cite"><div dir="ltr"><div>Sergio,<br></div>
<div><br></div>
<div>Veja se o código abaixo te ajuda.<br></div>
<div><br></div>
<div>Abs,<br></div>
<div><br></div>
<div>####<br></div>
<div><br></div>
<div># criacao do conjunto de dados<br></div>
<div><div>Dor_antes_Frevo <- rep(c("não", "sim"), c(34, 39))<br></div>
<div><br></div>
<div># criacao da tabela<br></div>
<div>tabela <- table(Dor_antes_Frevo)<br></div>
<div>tabela<br></div>
<div> <br></div>
<div># salva o grafico numa variavel<br></div>
<div>grafico <- barplot(tabela, main="Prevalência de dor", ylim=c(0, 40))<br></div>
<div><br></div>
<div># plota o texto levando em conta as propriedades do grafico<br></div>
<div>text(x=grafico, y=tabela, labels=tabela, pos=3, xpd=NA)<br></div>
</div>
</div>
<div><div><br></div>
<div defang_data-gmailquote="yes"><div>2016-07-28 21:37 GMT-03:00 Sergio Pinto via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>></span>:<br></div>
<blockquote style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204, 204, 204);padding-left:1ex;" defang_data-gmailquote="yes"><div dir="ltr"><div><div><div><div><div><div>Prezados<br></div>
</div>
<div>Tenho um banco de dados de prevalência de dor em dançarinos de frevo. <br></div>
<div>Nele aparece uma variável dicotômica descrita a seguir:<br></div>
<div>> Dor_antes_Frevo<br></div>
<div> [1] sim sim não não não sim sim não sim não sim não não sim sim sim sim sim não sim<br></div>
<div>[21] sim sim sim não sim sim não não sim não não sim não não não não sim não sim sim<br></div>
<div>[41] não sim sim sim sim sim não não sim sim sim sim não não não sim não sim sim sim<br></div>
<div>[61] não sim não não sim sim não não sim não não não não<br></div>
<div>Levels: não sim<br></div>
<div><br></div>
</div>
<div>Pretendo construir um gráfico de barras com os valores de sim e de não.<br></div>
</div>
<div>Gerei uma tabela da seguinte forma:<br></div>
<div><br></div>
<div>> taba <-table(frevo$Dor_antes_Frevo)<br></div>
<div>> taba<br></div>
<div><br></div>
<div>não sim <br></div>
<div> 34 39 <br></div>
</div>
<div>Estes são os valores que gostaria de inserir sobre cada barra do gráfico.<br></div>
</div>
<div>Escrevi este comando:<br></div>
<div><div><div><div><br></div>
<div>> barplot(taba, main = "Prevalência de dor", ylim = c(0,40))<br></div>
</div>
<div>O gráfico aparece perfeitamente. porém sem os valores.<br></div>
<div><div>Vi no acervo desta lista um comando que achei que seria adequado para o meu caso que foi:<br></div>
<div><br></div>
<div>> localdor<- barplot(taba, main = "Prevalência de dor", ylim = c(0,40))<br></div>
<div><br></div>
<div>Para criar uma variável..<br></div>
<div>> localdor<br></div>
<div> [,1]<br></div>
<div>[1,] 0.7<br></div>
<div>[2,] 1.9<br></div>
</div>
<div>Aqui já achei esquisito pois acredito que deveria aparecer 34 e 39.<br></div>
<div><div> Depois escrevi o seguinte comando:<br></div>
<div>> text(localdor,barplot(taba, main = "Prevalência de dor", ylim = c(0,40)))<br></div>
</div>
<div>Não consegui. Apareceu 1 e 2 nas barras. <br></div>
<div>Talvez minha dúvida seja de iniciante mas peço alguma luz .<br></div>
<div>Estou usando o R- studio <span class="highlight" style="background-color:rgb(243, 244, 244)"><span class="colour" style="color:rgb(0, 0, 0)"><span class="font" style="font-family:'segoe ui'"><span class="size" style="font-size:12px">Version</span></span></span></span><span class="highlight" style="background-color:rgb(243, 244, 244)"><span class="colour" style="color:rgb(0, 0, 0)"><span class="font" style="font-family:'segoe ui'"><span class="size" style="font-size:12px"><span> </span></span></span></span></span><span class="highlight" style="background-color:rgb(243, 244, 244)"><span class="colour" style="color:rgb(0, 0, 0)"><span class="font" style="font-family:'segoe ui'"><span class="size" style="font-size:12px">0.99.902 e o R 3.3.0</span></span></span></span><br></div>
<div><br></div>
<div><div>Desde já agradeço a atenção<br></div>
</div>
<div><b>Sergio Medeiros Pinto</b><br></div>
<div>Doutorando em Ciências Médicas UERJ<br></div>
<div>Prof. de Educação Física<br></div>
<div><div><br></div>
</div>
<div><br></div>
</div>
</div>
</div>
<div><br></div>
<div>_______________________________________________<br></div>
<div> R-br mailing list<br></div>
<div> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div>
<div> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>
<div> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>
</blockquote></div>
<div><br></div>
<div><br></div>
<div><br></div>
<div>-- <br></div>
<div><div dir="ltr"><div>Marcus Nunes<br></div>
<div><a href="http://marcusnunes.me/">http://marcusnunes.me/</a><br></div>
</div>
</div>
</div>
<div><u>_______________________________________________</u><br></div>
<div>R-br mailing list<br></div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div>
<div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>
<div>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>
</blockquote></body>
</html>