<div dir="ltr"><div class="gmail_extra">Obrigado grande colega Delcio, suas orientações são de grande valia. Observei na internet a função round mas não soube inserir no código.</div><div class="gmail_extra"><br></div><div class="gmail_extra">Segue uma solução para a comunidade, conforme as observações do Delcio.</div><div class="gmail_extra"><br></div><div class="gmail_extra">##############
</div><div class="gmail_extra"><div class="gmail_extra">soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2)</div><div class="gmail_extra"><br></div><div class="gmail_extra"># formatação (en)</div><div class="gmail_extra">options(OutDec=".")</div><div class="gmail_extra">soma1<-format(round(as.numeric(soma), 2), nsmall=2, big.mark=",")</div><div class="gmail_extra">par(mar=c(4,6,1,1))</div><div class="gmail_extra">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,mgp=c(5, 1, 0))</div><div class="gmail_extra">text(1.5,soma[1,1]+500, soma1[1]) # T</div><div class="gmail_extra">text(3.5,soma[1,2]+500 , soma1[2])  # BT</div><div class="gmail_extra">axis(side = 2, at = axTicks(2), labels=format(round(as.numeric(axTicks(2)), 2), nsmall=2, big.mark=","),las=1)</div><div class="gmail_extra"><br></div><div class="gmail_extra"># formatação (pt)</div><div class="gmail_extra">options(OutDec=",")</div><div class="gmail_extra">soma1<-format(round(as.numeric(soma), 2), nsmall=2, big.mark=".")</div><div class="gmail_extra">par(mar=c(4,6,1,1))</div><div class="gmail_extra">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,mgp=c(5, 1, 0))</div><div class="gmail_extra">text(1.5,soma[1,1]+500, soma1[1]) # T</div><div class="gmail_extra">text(3.5,soma[1,2]+500 , soma1[2])  # BT</div><div class="gmail_extra">axis(side = 2, at = axTicks(2), labels=format(round(as.numeric(axTicks(2)), 2), nsmall=2, big.mark="."),las=1)</div><div class="gmail_extra"><br></div><div>##############################</div></div></div>