[R-br] Como ajustar algumas propriedades do segundo eixo Y?

[Paulo J Ribeiro Jr]

Cleber

me parece que a solucao para "customização" completa seria voce fazer o
gráfico sem eixos (axis=F) e depois usar o axis(1, ...), axis(2, ...)
etc



Em Seg, 2012-02-20 às 21:39 -0200, Cleber N.Borges escreveu:
> Consegui obter o visual desejado do gráfico com o seguinte código:
> 
> #######################################
> set.seed(1234)
> x1 <- abs(rnorm(10))
> x2 <- abs(rnorm(10)) + 100
> ### Primeira Camada
> par(mar=c(4.5,4,4,4.5), yaxs='i')
> plot( bp[,1], x2, xlim=c(0,12), xlab='', ylab='', xaxt='n', yaxt='n', 
> bty='n', ylim=c(100,103), t='n'  )
> axis(4)
> mtext('VAR 02', side=4, padj=4.5)
> grid()
> ### Segunda Camada
> par( new=T, yaxs='i' )
> bp <- barplot( x1, xlim=c(0,12), ylim=c(0,3), xlab='', ylab='VAR 01', 
> names.arg=letters[1:10] )
> ### Terceira Camada
> par( new=T, yaxs='i' )
> plot( bp[,1], x2, t='b', xlim=c(0,12), xlab='', ylab='', xaxt='n', 
> yaxt='n', bty='n', ylim=c(100,103) )
> #######################################
> 
> Porém gostaria de saber o modo mais correto de se fazer a mesma coisa e
> também de como retirar as configurações do XLAB='VAR 01' e
> repassar para o segundo eixo de forma idêntica!
> O código acima assusta de tão horrível! :-(
> 
> Cleber
> 
> 
> 
> 
> 
> 
> Em 20/02/2012 16:02, Cleber N.Borges escreveu:
> > Olá a todos,
> >
> > Gostaria de ajustar um segundo eixo Y (VAR 01), de acordo com o 
> > primeiro eixo Y (VAR 02).
> >
> > o que eu não consegui:
> >
> > 1 - ajustar o 'zero' do primeiro com o 'zero' do segundo eixo Y
> > 2 - colocar o nome do segundo eixo (um ylab='VAR 02')
> >
> > Imagino que vendo o que eu quero, fica mais fácil entender, então 
> > segue um código exemplo junto.
> > Agradeço antecipadamente por qualquer ajuda.
> >
> > Cleber
> > #############
> >
> > set.seed(1234)
> > x1 <- abs(rnorm(10))
> > x2 <- abs(rnorm(10)) + 100
> >
> > par(mar=c(5,4,4,5))
> > bp <- barplot( x1, xlim=c(0,12), ylim=c(0,3), xlab='', ylab='VAR 01', 
> > xaxt='n')
> > par( new=T )
> > plot( bp[,1], x2, t='b', xlim=c(0,12), xlab='', ylab='', xaxt='n', 
> > yaxt='n', bty='n', ylim=c(100,103) )
> > axis(4, ylab='VAR 02')
> > grid()
> > axis(1, at=bp[,1], labels=letters[1:10])
> >
> >
> >
> >
> 
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.