<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
</head>
<body dir="ltr">
<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif;" dir="ltr">
<p>Olá!</p>
<p>Não sei se é exatamente assim que deseja, mas segue o script:</p>
<p></p>
<div><br>
</div>
<div><span>soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2)</span><br>
</div>
<div><br>
</div>
<div><span style="font-family: Calibri, Arial, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;"># formatação 1 (br</span><span style="font-family: Calibri, Arial, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">)</span></div>
<div>options(OutDec=",")</div>
<div>barplot(soma, main = "Lucratividade (en)", ylim= c(0, (max(soma[1,1], soma[1,2])) + 1000), xlab = "",</div>
<div> ylab = "Lucratividade, R$", names.arg = c("Método T","Método BT"), col=c("red","darkgreen"),</div>
<div> beside=TRUE, axes = T,yaxt="n",mgp=c(5, 1, 0))</div>
<div>text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T</div>
<div>text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT</div>
<div>axis(side = 2, at = c(0,1998.87,2650.34), labels=c(0,1998.87,2650.34),las=1)</div>
<div><br>
</div>
#========================================
<div><span style="font-family: Calibri, Arial, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;"># formatação 2 (en)</span><br>
</div>
<div>
<div>options(OutDec=".")</div>
<div>barplot(soma, main = "Lucratividade (en)", ylim= c(0, (max(soma[1,1], soma[1,2])) + 1000), xlab = "",</div>
<div> ylab = "Lucratividade, R$", names.arg = c("Método T","Método BT"), col=c("red","darkgreen"),</div>
<div> beside=TRUE, axes = T,yaxt="n",mgp=c(5, 1, 0))</div>
<div>text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T</div>
<div>text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT</div>
<div>axis(side = 2, at = c(0,1998.87,2650.34), labels=c(0,1998.87,2650.34),las=1)</div>
<br>
<p></p>
<br>
Att., Delcio R. Bortolanza</div>
<div>Doutorando em Agronomia-UPF<br>
<div style="color: rgb(0, 0, 0);">
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>De:</b> R-br <r-br-bounces@listas.c3sl.ufpr.br> em nome de Marcio B via R-br <r-br@listas.c3sl.ufpr.br><br>
<b>Enviado:</b> quinta-feira, 25 de maio de 2017 12:56<br>
<b>Para:</b> a lista Brasileira oficial de discussão do programa R.<br>
<b>Assunto:</b> [R-br] Inserir casas decimais no eixo (y) e no gráfico</font>
<div> </div>
</div>
<div>
<div dir="ltr">Pessoal o objetivo é a formatação dos valores que aparecem no eixo (y) e nos valores acima das barras do gráfico de barras.
<div><br>
</div>
<div>Objetivo dos valores aparecer em 2 formatos como segue:</div>
<div>-> formatação 1 (br): 1.998,87</div>
<div>-> formatação 2 (en): 1,998.87</div>
<div><br>
</div>
<div>Segue o código:</div>
<div><br>
<div>
<div>soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2)</div>
<div><br>
</div>
<div># formatação 1 (br)</div>
<div>barplot(soma, main = "Lucratividade (br)", ylim= c(0, (max(soma[1,1], soma[1,2])) + 1000), xlab = "", ylab = "Lucratividade, R$", names.arg = c("Método T","Método BT"), col=c("red","darkgreen"), beside=TRUE, axes = FALSE)</div>
<div>text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T</div>
<div>text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT</div>
<div>axis(side = 2, at = axTicks(2), labels=formatC(axTicks(2), format="d", big.mark='.', digits = 2))</div>
<div><br>
</div>
<div># formatação 2 (en)</div>
<div>barplot(soma, main = "Lucratividade (en)", ylim= c(0, (max(soma[1,1], soma[1,2])) + 1000), xlab = "", ylab = "Lucratividade, R$", names.arg = c("Método T","Método BT"), col=c("red","darkgreen"), beside=TRUE, axes = FALSE)</div>
<div>text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T</div>
<div>text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT</div>
<div>axis(side = 2, at = axTicks(2), labels=formatC(axTicks(2), format="d", big.mark=',', digits = 2))</div>
</div>
<div><br clear="all">
<div>Obrigado desde já</div>
<div><br>
</div>
-- <br>
<div class="gmail_signature">
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">Marcio B.
<div>
<div><br>
</div>
<div>Cel.: (55 19) 996.483.949 tim | 997.980.104 vivo<br>
</div>
<div>
<div>skype: maborbaa<br>
</div>
</div>
</div>
<div><a href="http://www.linkedin.com/in/marciobar" target="_blank" id="LPlnk375880" previewremoved="true">http://www.linkedin.com/in/marciobar</a>
</div>
<div id="LPBorder_GT_14957343941140.32692362926891105" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14957343941100.8872836000787181" role="presentation" cellspacing="0" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);">
<tbody>
<tr valign="top" style="border-spacing: 0px;">
<td id="ImageCell_14957343941110.8321262848840996" colspan="1" style="width: 250px; position: relative; display: table-cell; padding-right: 20px;">
<div id="LPImageContainer_14957343941110.5089149843246856" style="background-color: rgb(255, 255, 255); height: 200px; position: relative; margin: auto; display: table; width: 200px;">
<a id="LPImageAnchor_14957343941120.24969844697074794" href="http://www.linkedin.com/in/marciobar" target="_blank" style="display: table-cell; text-align: center;"><img id="LPThumbnailImageID_14957343941120.6597623917007329" width="200" height="200" style="display: inline-block; max-width: 250px; max-height: 250px; height: 200px; width: 200px; border-width: 0px; vertical-align: bottom;" src="http://m.c.lnkd.licdn.com/mpr/mpr/shrinknp_200_200/AAEAAQAAAAAAAAI4AAAAJGU2ZDk5NDMzLTgxZTUtNDJiNC1iN2FhLTdmYTVkNDAxNjA1ZA.jpg"></a></div>
</td>
<td id="TextCell_14957343941120.22907935743864316" colspan="2" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;">
<div id="LPRemovePreviewContainer_14957343941120.4315821081164368"></div>
<div id="LPTitle_14957343941120.9408719712613614" style="top: 0px; color: rgb(0, 120, 215); font-weight: normal; font-size: 21px; font-family: wf_segoe-ui_light, "Segoe UI Light", "Segoe WP Light", "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14957343941130.45903038232384463" href="http://www.linkedin.com/in/marciobar" target="_blank" style="text-decoration: none;">Marcio Barbosa | LinkedIn</a></div>
<div id="LPMetadata_14957343941130.8961265843605322" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 14px;">
www.linkedin.com</div>
<div id="LPDescription_14957343941130.15148714468640279" style="display: block; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
View Marcio Barbosa’s professional profile on LinkedIn. LinkedIn is the world's largest business network, helping professionals like Marcio Barbosa discover inside ...</div>
</td>
</tr>
</tbody>
</table>
</div>
<br>
<div><a href="https://www.facebook.com/marciobar" target="_blank" id="LPlnk594182" previewremoved="true">https://www.facebook.com/marciobar</a></div>
<div id="LPBorder_GT_14957344533780.6530958936636235" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14957344533760.881271400037895" role="presentation" cellspacing="0" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);">
<tbody>
<tr valign="top" style="border-spacing: 0px;">
<td id="TextCell_14957344533760.6826850119816781" colspan="2" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;">
<div id="LPRemovePreviewContainer_14957344533760.9517723413600638"></div>
<div id="LPTitle_14957344533760.039864087961454464" style="top: 0px; color: rgb(0, 120, 215); font-weight: normal; font-size: 21px; font-family: wf_segoe-ui_light, "Segoe UI Light", "Segoe WP Light", "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14957344533770.7627187104749742" href="https://www.facebook.com/marciobar" target="_blank" style="text-decoration: none;">Log In or Sign Up to View</a></div>
<div id="LPMetadata_14957344533770.7583059026779604" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 14px;">
www.facebook.com</div>
<div id="LPDescription_14957344533770.2241792995588383" style="display: block; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
See posts, photos and more on Facebook.</div>
</td>
</tr>
</tbody>
</table>
</div>
<br>
<div><br>
</div>
<div>Empresa<br>
<a href="http://www.techagr.com/" target="_blank" id="LPlnk172083" previewremoved="true">http://www.techagr.com/</a><br>
</div>
<div><br>
</div>
<div>==== PAZ E BEM ====</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</body>
</html>