Você pode usar a função axis
para adicionar um eixo extra ao gráfico e se necessário mtext
para colocar seu label. Por exemplo, para um gráfico simples:
par(mar = c(5, 4, 4, 4) + 0.1)
plot(1:10, ylab = "Eixo Y Esquerdo")
lines(10:1)
axis(4, at = 1:10, labels = seq(10, 100, 10))
mtext("Eixo Y Direito", side = 4, line = 2)
Note que você tem que ajustar a margem direita com par
e que você pode colocar valores diferentes da posição real no eixo utilizando o argumento labels
.
Se os dados forem de escalas diferentes e você preferir não transformar os dados do segundo eixo, pode usar a seguinte forma:
par(mar = c(5, 4, 2, 4) + 0.1)
plot(1:10, ylab = "Eixo Y Esquerdo")
par(new = TRUE, mar = c(5, 4, 2, 4) + 0.1)
plot(100:1, type = "l", axes = FALSE, xlab = "", ylab = "")
axis(4, at = seq(0, 100, 10), labels = seq(0, 100, 10))
mtext("Eixo Y Direito", side = 4, line = 2)
Neste caso o argumento new = TRUE
de par
faz com que a área gráfica não seja "limpa" quando você chama a função plot
novamente. Fique atento que a partir deste momento os eixos serão relativos aos valores de x
e y
do segundo gráfico.
Vários exemplos e alternativas (com funções de outros pacotes) estão disponíveis numa pergunta similar do SOen.