<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 style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58514"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58515">Prezados, bom dia!!!</span><br clear="none" id="yui_3_16_0_1_1504177665648_58516"></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58514"><span style="font-family: Verdana, sans-serif;"><br></span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58517"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58549">Estou fazendo um barplot, cujos dados estão estruturados no R em forma de matriz como no exemplo abaixo:</span><br></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58517"><span style="font-family: Verdana, sans-serif;"><br></span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58519"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58520">dados=data.frame(</span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58521"><span id="yui_3_16_0_1_1504177665648_58522">y1=c(110,120,115,130,125),</span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58523"><span id="yui_3_16_0_1_1504177665648_58524">y2=c(102,105,104,103,107))</span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58523"><span><br></span></div><div dir="ltr" style="text-align: justify; font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif;" id="yui_3_16_0_1_1504177665648_58525"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58526">dadosest=as.matrix(dados)</span><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58527"><br clear="none" id="yui_3_16_0_1_1504177665648_58528"></span></div><div dir="ltr" style="text-align: justify; font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif;" id="yui_3_16_0_1_1504177665648_58529"><span style="font-family: Verdana, sans-serif;"><br></span></div><div dir="ltr" style="text-align: justify; font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif;" id="yui_3_16_0_1_1504177665648_58529"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58530">barplot(</span><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58531">dadosest</span><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58532">,ylim=c(0,150),beside=TRUE)</span><br clear="none" id="yui_3_16_0_1_1504177665648_58533"></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58534"><span style="font-family: Verdana, sans-serif;"><br></span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58534"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58535">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="yui_3_16_0_1_1504177665648_58536"></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58534"><span style="font-family: Verdana, sans-serif;"><br></span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; text-align: justify;" id="yui_3_16_0_1_1504177665648_58537"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58538">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="yui_3_16_0_1_1504177665648_58539"></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif;" dir="ltr" id="yui_3_16_0_1_1504177665648_58540"><span style="font-family: Verdana, sans-serif;"><br></span></div><div style="font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif;" dir="ltr" id="yui_3_16_0_1_1504177665648_58540"><span style="font-family: Verdana, sans-serif;" id="yui_3_16_0_1_1504177665648_58541">Se alguém souber e puder ajudar... agradecido desde já!!!</span></div><div></div><div id="yui_3_16_0_1_1504177665648_56813"> </div><div class="signature" id="yui_3_16_0_1_1504177665648_56815"><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" id="yui_3_16_0_1_1504177665648_58277">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_1504177665648_56814">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_1504177665648_58276">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;" id="yui_3_16_0_1_1504177665648_58218"><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></body></html>