Kā izveidot grafiku ar divām y asīm?

Lai arī daļa speciālistu atzīst, ka grafiki ar divām y asīm nav labi, reizēm ir vēlme tādus izveidot.

Kā pirmais solis, protams, ir nepieciešami dati, kurus šoreiz mākslīgi radīsim:

x<-1:10
y<-seq(15,6,-1)
y2<-seq(102,120,2)

Tālāk vajag nodefinēt vietu otrajai y asij un tekstam pie tās, jo automātiski labējā mala tiek veidota šaura:

par(mar=c(5,5,2,5))

Tagad varam uzzīmēt datus, ko vēlamies attēlot uz pirmās y ass:

plot(x,y,type="l",lwd=2,col="green")

Lai varētu pievienot datus uz otras y ass, ir jāizmanto funkcija par() ar argumentu new=TRUE, kas ļauj esošam grafikam likt virsū nākamo grafiku:

par(new=TRUE)

Otro grafiku zīmējam, piemēram, ar funkciju plot(). Galvenais ir jāatceras, ka jāatslēdz automātiskā tekstu un asu veidošana šim grafikam, pretējā gadījumā teksti pārklāsies ar iepriekšējo grafiku:

plot(x,y2,type="l",lwd=2,col="red",axes=FALSE,ann=FALSE)

Tagad varam arī nedefinēt kādu tieši vēlamies redzēt otro y asi, kā arī pielikt pie tās apzīmējumu. Papildus pieliekam arī leģendu:

axis(4,at=seq(100,120,5))
mtext("y2",side=4,line=3)
legend(5,120,c("y","y2"),col=c("green","red"),lwd=2)