x <- seq(1,10)

y1 <- rnorm(10)

y2 <- rnorm(10)

y3 <- rnorm(10)

par(mfrow=c(3,1))

plot(y1 ~ x, 

     axes = F,

     xlab = '',

     ylab = '',

     main = 'A',

     type = 'l')

axis(2)

plot(y2 ~ x,

     axes = F,

     xlab = '',

     ylab = '',

     main = 'B',

     type = 'l')

axis(2)

plot(y3 ~ x,

     axes = F,

     xlab = '',

     ylab = '',

     main = 'C',

     type = 'l')

axis(1)

axis(2)

 (s,f,P)