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 https://www.facebook.com/marciobar Empresa http://www.techagr.com/ ==== PAZ E BEM ====
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 ====
Obrigado Delcio Vc já me deu uma grande ajuda. Não conhecia o OutDec, já consigo trocar as casas decimais nos valores acima do gráfico de barras quando for "," ou ".", porem o separador de milhar também seria necessário aqui. 1.998,87 ou 2.650,34 options(OutDec=".") Aqui você definiu o valor do eixo (2), na verdade eu deixo o R carregar a variação conforme os resultados que recebo da soma, são vários gráficos de barras com resultados bem variados. axis(side = 2, at = c(0,1998.87,2650.34), labels=c(0,1998.87,2650.34),las=1) Portanto o que preciso é quando rodamos o exemplo usando esta linha axis(side = 2, at = axTicks(2), labels=formatC(axTicks(2), format="d", big.mark=',', digits = 2)) A variação vai de 0, 500, 1500, 2500, 3500, porém perceba que adiciono o separador de milhar big.mark=',' ou big.mark='.', o que desejo neste caso é colocar as casas decimais (0 500,00 1.500,00 2.500,00 3.500,00) ou (0 500.00 1,500.00 2,500.00 3,500.00) obrigado pelo apoio. Marcio B.
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. Segue uma solução para a comunidade, conforme as observações do Delcio. ############## soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2) # formatação (en) options(OutDec=".") soma1<-format(round(as.numeric(soma), 2), nsmall=2, big.mark=",") par(mar=c(4,6,1,1)) 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)) text(1.5,soma[1,1]+500, soma1[1]) # T text(3.5,soma[1,2]+500 , soma1[2]) # BT axis(side = 2, at = axTicks(2), labels=format(round(as.numeric(axTicks(2)), 2), nsmall=2, big.mark=","),las=1) # formatação (pt) options(OutDec=",") soma1<-format(round(as.numeric(soma), 2), nsmall=2, big.mark=".") par(mar=c(4,6,1,1)) 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)) text(1.5,soma[1,1]+500, soma1[1]) # T text(3.5,soma[1,2]+500 , soma1[2]) # BT axis(side = 2, at = axTicks(2), labels=format(round(as.numeric(axTicks(2)), 2), nsmall=2, big.mark="."),las=1) ##############################
participantes (2)
-
Delcio Rudinei Bortolanza -
Marcio B