<html><head></head><body><div style="color:#000; background-color:#fff; font-family:Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1504265817836_7867"><span id="yui_3_16_0_1_1504265817836_7868">Oi César e Elias, obrigado a ambos pela atenciosidade, e peço desculpas, acho de fato que não fui claro. </span></div><div id="yui_3_16_0_1_1504265817836_7869"><br clear="none" id="yui_3_16_0_1_1504265817836_7870"></div><div id="yui_3_16_0_1_1504265817836_7871"><span id="yui_3_16_0_1_1504265817836_7872">Irei fazer o barplot mais corriqueiro como mostrei na rotina:</span></div><div id="yui_3_16_0_1_1504265817836_7873"><br clear="none" id="yui_3_16_0_1_1504265817836_7874"></div><div id="yui_3_16_0_1_1504265817836_7875"><i id="yui_3_16_0_1_1504265817836_7876"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7877">dados=data.frame(</font></i></div><div id="yui_3_16_0_1_1504265817836_7878"><i id="yui_3_16_0_1_1504265817836_7879"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7880">y1=c(110,120,115,130,125),</font></i></div><div id="yui_3_16_0_1_1504265817836_7881"><i id="yui_3_16_0_1_1504265817836_7882"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7883">y2=c(102,105,104,103,107))</font></i></div><div id="yui_3_16_0_1_1504265817836_7884"><i id="yui_3_16_0_1_1504265817836_7885"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7886"><br clear="none" id="yui_3_16_0_1_1504265817836_7887"></font></i></div><div id="yui_3_16_0_1_1504265817836_7888"><i id="yui_3_16_0_1_1504265817836_7889"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7890">dadosest=as.matrix(dados)</font></i></div><div id="yui_3_16_0_1_1504265817836_7891"><i id="yui_3_16_0_1_1504265817836_7892"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7893"><br clear="none" id="yui_3_16_0_1_1504265817836_7894"></font></i></div><div id="yui_3_16_0_1_1504265817836_7895"></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7896"><i id="yui_3_16_0_1_1504265817836_7897"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7898">barplot(dadosest,ylim=c(0,150),beside=TRUE)</font></i></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7899"><br clear="none" id="yui_3_16_0_1_1504265817836_7900"></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7901">Só que os gráficos de "bolinhas" não serão os mesmos valores, será outro conjunto numa outra escala. Exemplo, padronizando os valores acima, teríamos os seguintes dados:</div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7902"><font color="#4c76a2" id="yui_3_16_0_1_1504265817836_7903"><br clear="none" id="yui_3_16_0_1_1504265817836_7904"></font></div><div id="yui_3_16_0_1_1504265817836_7905"></div><div id="yui_3_16_0_1_1504265817836_7906"><div id="yui_3_16_0_1_1504265817836_7907"><i id="yui_3_16_0_1_1504265817836_7908"><font color="#70aced" id="yui_3_16_0_1_1504265817836_7909">dadosp=data.frame(</font></i></div><div id="yui_3_16_0_1_1504265817836_7910"><i id="yui_3_16_0_1_1504265817836_7911"><font color="#70aced" id="yui_3_16_0_1_1504265817836_7912">y1p=c(-1.26,0.00,-0.63,1.26,0.63),</font></i></div><div id="yui_3_16_0_1_1504265817836_7913"><i id="yui_3_16_0_1_1504265817836_7914"><font color="#70aced" id="yui_3_16_0_1_1504265817836_7915">y2p=c(-1.14,0.41,-0.10,-0.62,1.45))</font></i></div><div id="yui_3_16_0_1_1504265817836_7916"><i id="yui_3_16_0_1_1504265817836_7917"><font color="#70aced" id="yui_3_16_0_1_1504265817836_7918"><br clear="none" id="yui_3_16_0_1_1504265817836_7919"></font></i></div><div id="yui_3_16_0_1_1504265817836_7920"><i id="yui_3_16_0_1_1504265817836_7921"><font color="#70aced" id="yui_3_16_0_1_1504265817836_7922">dadosestp=as.matrix(dadosp)</font></i></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7923"><i id="yui_3_16_0_1_1504265817836_7924"><font color="#cd232c" id="yui_3_16_0_1_1504265817836_7925"><br clear="none" id="yui_3_16_0_1_1504265817836_7926"></font></i></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7927">Esses dados em azul (que são padronizados pelos valores em vermelho) é que serão plotados em "bolinhas". Para esses, a escala será outra, e representada no eixo a direita. O da esquerda conterá a escala dos dados em "barras".<br clear="none" id="yui_3_16_0_1_1504265817836_7928"></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7929"><br clear="none" id="yui_3_16_0_1_1504265817836_7930"></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7931">Desculpa, consegui ser claro?</div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7932"><br clear="none" id="yui_3_16_0_1_1504265817836_7933"></div><div dir="ltr" id="yui_3_16_0_1_1504265817836_7934">Obrigado novamente!!!</div></div><div></div><div id="yui_3_16_0_1_1504265817836_7779"> </div><div class="signature" id="yui_3_16_0_1_1504265817836_7939"><div class="MsoNormal" id="yui_3_16_0_1_1497025264182_38349" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38508"><span id="yui_3_16_0_1_1497025264182_38507" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif">Diogo Jerônimo</font></span></i></div><div class="MsoNormal" id="yui_3_16_0_1_1497025264182_38347" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38430"><span id="yui_3_16_0_1_1497025264182_38429" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1504265817836_7940">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div class="MsoNormal" id="yui_3_16_0_1_1497025264182_38310" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38309"><span id="yui_3_16_0_1_1497025264182_38308" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1504265817836_7941">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div class="MsoNormal" id="yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38329"><span id="yui_3_16_0_1_1497025264182_38328" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1497025264182_38700">CONRE: 8514 - SÉRIE A</font></span></i></div><div class="MsoNormal" id="yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38314"><span id="yui_3_16_0_1_1497025264182_38313" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1497025264182_38698">Cel:(21)99680-8535</font></span></i></div><div class="MsoNormal" id="yui_3_16_0_1_1497025264182_38319" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38318"><span id="yui_3_16_0_1_1497025264182_38317" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1497025264182_38696">Email: diogojose21@yahoo.com.br</font></span></i></div><div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal;background:white;"><i id="yui_3_16_0_1_1497025264182_38323"><span id="yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1497025264182_38695">http://lattes.cnpq.br/8996149312896520</font></span></i></div></div><div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Elias T. Krainski via R-br <r-br@listas.c3sl.ufpr.br><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quinta-feira, 31 de Agosto de 2017 11:19<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Barplot com dois eixos<br> </font> </div> <div class="y_msg_container"><br><div id="yiv8719190682"><div>
<div>Poderia colocar os valores acima das barras:</div>
<tt>b <- barplot(dadosest,ylim=c(0,150),beside=TRUE)</tt><tt><br clear="none">
</tt><tt>text(as.vector(b), as.vector(dadosest)+10,
format(dadosest))</tt><tt><br clear="none">
</tt><br clear="none">
Elias<br clear="none">
<br clear="none">
<div class="yiv8719190682yqt3190490288" id="yiv8719190682yqt14061"><div class="yiv8719190682moz-cite-prefix">On 31/08/2017 11:13, Diogo Jerônimo via
R-br wrote:<br clear="none">
</div>
<blockquote type="cite">
<div style="color:#000;background-color:#fff;font-family:Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px;">
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58514" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58515" style="font-family:Verdana, sans-serif;">Prezados, bom dia!!!</span><br clear="none" id="yiv8719190682yui_3_16_0_1_1504177665648_58516">
</div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58514" style="font-family:HelveticaNeue,;"><span style="font-family:Verdana, sans-serif;"><br clear="none">
</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58517" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58549" style="font-family:Verdana, sans-serif;">Estou fazendo um
barplot, cujos dados estão estruturados no R em forma de
matriz como no exemplo abaixo:</span><br clear="none">
</div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58517" style="font-family:HelveticaNeue,;"><span style="font-family:Verdana, sans-serif;"><br clear="none">
</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58519" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58520" style="font-family:Verdana, sans-serif;">dados=data.frame(</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58521" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58522">y1=c(110,120,115,130,125),</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58523" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58524">y2=c(102,105,104,103,107))</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58523" style="font-family:HelveticaNeue,;"><span><br clear="none">
</span></div>
<div dir="ltr" id="yiv8719190682yui_3_16_0_1_1504177665648_58525" style="text-align:justify;font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58526" style="font-family:Verdana, sans-serif;">dadosest=as.matrix(dados)</span><span id="yiv8719190682yui_3_16_0_1_1504177665648_58527" style="font-family:Verdana, sans-serif;"><br clear="none" id="yiv8719190682yui_3_16_0_1_1504177665648_58528">
</span></div>
<div dir="ltr" id="yiv8719190682yui_3_16_0_1_1504177665648_58529" style="text-align:justify;font-family:HelveticaNeue,;"><span style="font-family:Verdana, sans-serif;"><br clear="none">
</span></div>
<div dir="ltr" id="yiv8719190682yui_3_16_0_1_1504177665648_58529" style="text-align:justify;font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58530" style="font-family:Verdana, sans-serif;">barplot(</span><span id="yiv8719190682yui_3_16_0_1_1504177665648_58531" style="font-family:Verdana, sans-serif;">dadosest</span><span id="yiv8719190682yui_3_16_0_1_1504177665648_58532" style="font-family:Verdana, sans-serif;">,ylim=c(0,150),beside=TRUE)</span><br clear="none" id="yiv8719190682yui_3_16_0_1_1504177665648_58533">
</div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58534" style="font-family:HelveticaNeue,;"><span style="font-family:Verdana, sans-serif;"><br clear="none">
</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58534" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58535" style="font-family:Verdana, sans-serif;">Eu gostaria de criar
um novo eixo (à direita), com os valores correspondentes a
y1 e y2 plotados como "bolinhas", e se possível com uma reta
unindo essas "bolinhas"...</span><br clear="none" id="yiv8719190682yui_3_16_0_1_1504177665648_58536">
</div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58534" style="font-family:HelveticaNeue,;"><span style="font-family:Verdana, sans-serif;"><br clear="none">
</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_58537" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58538" style="font-family:Verdana, sans-serif;">Alguém teria sugestão
de como se fazer isso? Eu empreguei a função par(new=T), mas
no meu teste, o novo gráfico ficou muito desproporcional.</span><br clear="none" id="yiv8719190682yui_3_16_0_1_1504177665648_58539">
</div>
<div dir="ltr" id="yiv8719190682yui_3_16_0_1_1504177665648_58540" style="font-family:HelveticaNeue,;"><span style="font-family:Verdana, sans-serif;"><br clear="none">
</span></div>
<div dir="ltr" id="yiv8719190682yui_3_16_0_1_1504177665648_58540" style="font-family:HelveticaNeue,;"><span id="yiv8719190682yui_3_16_0_1_1504177665648_58541" style="font-family:Verdana, sans-serif;">Se alguém souber e
puder ajudar... agradecido desde já!!!</span></div>
<div id="yiv8719190682yui_3_16_0_1_1504177665648_56813"> </div>
<div class="yiv8719190682signature" id="yiv8719190682yui_3_16_0_1_1504177665648_56815">
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1497025264182_38349" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38508"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38507" style="color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1504177665648_58277" face="Courier New, courier, monaco, monospace, sans-serif">Diogo
Jerônimo</font></span></i></div>
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1497025264182_38347" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38430"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38429" style="color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1504177665648_56814" face="Courier New, courier, monaco, monospace, sans-serif">Bacharel
em Ciências Estatísticas - ENCE/IBGE</font></span></i></div>
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1497025264182_38310" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38309"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38308" style="color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1504177665648_58276" face="Courier New, courier, monaco, monospace, sans-serif">Mestre em
Metrologia - PUC-Rio/PósMQI</font></span></i></div>
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38329"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38328" style="color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1497025264182_38700" face="Courier New, courier, monaco, monospace, sans-serif">CONRE:
8514 - SÉRIE A</font></span></i></div>
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38314"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38313" style="color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1497025264182_38698" face="Courier New, courier, monaco, monospace, sans-serif">Cel:(21)99680-8535</font></span></i></div>
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1497025264182_38319" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38318"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38317" style="color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1497025264182_38696" face="Courier New, courier, monaco, monospace, sans-serif">Email:
<a rel="nofollow" shape="rect" class="yiv8719190682moz-txt-link-abbreviated" ymailto="mailto:diogojose21@yahoo.com.br" target="_blank" href="mailto:diogojose21@yahoo.com.br">diogojose21@yahoo.com.br</a></font></span></i></div>
<div class="yiv8719190682MsoNormal" id="yiv8719190682yui_3_16_0_1_1504177665648_58218" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:normal;background:white;"><i id="yiv8719190682yui_3_16_0_1_1497025264182_38323"><span id="yiv8719190682yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0, 0, 191);font-size:medium;"><font id="yiv8719190682yui_3_16_0_1_1497025264182_38695" face="Courier New, courier, monaco, monospace, sans-serif"><a rel="nofollow" shape="rect" class="yiv8719190682moz-txt-link-freetext" target="_blank" href="http://lattes.cnpq.br/8996149312896520">http://lattes.cnpq.br/8996149312896520</a></font></span></i></div>
</div>
</div>
<br clear="none">
<fieldset class="yiv8719190682mimeAttachmentHeader"></fieldset>
<br clear="none">
<pre>_______________________________________________
R-br mailing list
<a rel="nofollow" shape="rect" class="yiv8719190682moz-txt-link-abbreviated" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a rel="nofollow" shape="rect" class="yiv8719190682moz-txt-link-freetext" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a rel="nofollow" shape="rect" class="yiv8719190682moz-txt-link-freetext" target="_blank" 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.</pre>
</blockquote></div>
<br clear="none">
</div></div><div class="yqt3190490288" id="yqt40121">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" 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 clear="none">Leia o guia de postagem (<a shape="rect" 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 m�nimo reproduz�vel.</div><br><br></div> </div> </div> </div></div></body></html>