How to have second y-axis and have line chart embedded in it

Question

First is the sample code and the manipulations that I have in play.

   Month1 <- c(201812,20191,20192,20193,20194,20195,20196,
        20197,20198,20199,20