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])