Пользовательская метка на вторичной оси y в R

Question

Как я могу поместить пользовательскую метку на вторичной оси Y в R, используя следующий код?

library(zoo) 
#--------------random data 
x.Date <- as.Date(paste(2003, 02, c(1, 3, 7, 9, 14), sep = "-")) 
z <- zoo(rnorm(5), x.Date) 
z2 <- zoo(rnorm(5, sd = 0.2), x.Date) 

#--------------create plot 
png(filename = "Google.png", width = 480, height = 480) 

plot(z, type="l", xlab="Year", lt=1, lwd=1, ylab="Google Trend") 
grid(nx = NULL, ny = NULL, col = "lightgray", lty = "dotted", 
    lwd = par("lwd"), equilogs = TRUE) 
par(new=TRUE) 
plot(z2, type="l", ann=FALSE, lt=1, lwd=3, yaxt="n") 
axis(4, ylab="Test") # Here?! 

legend("topright", c("z", "z2"), lty=c(1,1), 
    lwd=c(1,3),col=c("black","black"), 
    box.col="black",bg="white") 

title("Google") 
dev.off() 

Ярлык «Тест» не появляется в моем участке ...

Кроме того, как перезаписать линии сетки с z2 и г линий? Другими словами, как привести построенные линии к «фронту»?

Answer 1

Вам нужно mtext для этой работы:

library(zoo) 
#--------------random data 
x.Date <- as.Date(paste(2003, 02, c(1, 3, 7, 9, 14), sep = "-")) 
z <- zoo(rnorm(5), x.Date) 
z2 <- zoo(rnorm(5, sd = 0.2), x.Date) 

#--------------create plot 
#png(filename = "Google.png", width = 480, height = 480) 

plot(z, type="l", xlab="Year", lt=1, lwd=1, ylab="Google Trend") 
grid(nx = NULL, ny = NULL, col = "lightgray", lty = "dotted", 
    lwd = par("lwd"), equilogs = TRUE) 
par(new=TRUE) 
plot(z2, type="l", ann=FALSE, lt=1, lwd=3, yaxt="n") 
axis(4) 

#------here is the only part I added 
#you specify the text, location and usually line=2 to place next to 
#the y-axis labels 
mtext('Test', side=4, line=2) 
#-----------------------------------  

legend("topright", c("z", "z2"), lty=c(1,1), 
     lwd=c(1,3),col=c("black","black"), 
     box.col="black",bg="white") 

title("Google") 
#dev.off() 

Выход:

Что касается г и z2 они не кажутся позади сетки здесь.