Olá! Não sei se é exatamente assim que deseja, mas segue o script: soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2) # formatação 1 (br) options(OutDec=",") 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 = T,yaxt="n",mgp=c(5, 1, 0)) text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT axis(side = 2, at = c(0,1998.87,2650.34), labels=c(0,1998.87,2650.34),las=1) #======================================== # formatação 2 (en) options(OutDec=".") 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 = T,yaxt="n",mgp=c(5, 1, 0)) text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT axis(side = 2, at = c(0,1998.87,2650.34), labels=c(0,1998.87,2650.34),las=1) Att., Delcio R. Bortolanza Doutorando em Agronomia-UPF ________________________________ De: R-br <r-br-bounces@listas.c3sl.ufpr.br> em nome de Marcio B via R-br <r-br@listas.c3sl.ufpr.br> Enviado: quinta-feira, 25 de maio de 2017 12:56 Para: a lista Brasileira oficial de discussão do programa R. Assunto: [R-br] Inserir casas decimais no eixo (y) e no gráfico Pessoal o objetivo é a formatação dos valores que aparecem no eixo (y) e nos valores acima das barras do gráfico de barras. Objetivo dos valores aparecer em 2 formatos como segue: -> formatação 1 (br): 1.998,87 -> formatação 2 (en): 1,998.87 Segue o código: soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2) # formatação 1 (br) 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) text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT axis(side = 2, at = axTicks(2), labels=formatC(axTicks(2), format="d", big.mark='.', digits = 2)) # formatação 2 (en) 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) text(1.5,soma[1,1]+500, round(soma[1,1],2)) # T text(3.5,soma[1,2]+500 , round(soma[1,2],2)) # BT axis(side = 2, at = axTicks(2), labels=formatC(axTicks(2), format="d", big.mark=',', digits = 2)) Obrigado desde já -- Marcio B. Cel.: (55 19) 996.483.949 tim | 997.980.104 vivo skype: maborbaa http://www.linkedin.com/in/marciobar [http://m.c.lnkd.licdn.com/mpr/mpr/shrinknp_200_200/AAEAAQAAAAAAAAI4AAAAJGU2ZDk5NDMzLTgxZTUtNDJiNC1iN2FhLTdmYTVkNDAxNjA1ZA.jpg]<http://www.linkedin.com/in/marciobar> Marcio Barbosa | LinkedIn<http://www.linkedin.com/in/marciobar> www.linkedin.com View Marcio Barbosa’s professional profile on LinkedIn. LinkedIn is the world's largest business network, helping professionals like Marcio Barbosa discover inside ... https://www.facebook.com/marciobar Log In or Sign Up to View<https://www.facebook.com/marciobar> www.facebook.com See posts, photos and more on Facebook. Empresa http://www.techagr.com/ ==== PAZ E BEM ====