This is an R Markdown for plotting multiple Y axis in a graph. This type of graphs are very essential when analysis variables of diffrent unit/ range scale. This scripts primary goal is to plotting multiple Y-AXIS using inbult plot function. However other features for the graph like axis name, title can be easily added.
# Iris Data Set
head(iris)
# plot first plot for Sepal Length
with(iris, plot(Sepal.Length, col = "red",type= "o"))
# set new plot
par(new = T)
# plot second plot, but without axis for Petal Width
with(iris, plot(Petal.Width, type = "l", xaxt = "n", yaxt = "n", xlab = "", ylab = ""))
# define y-axis and put y-labs
axis(4)
with(iris, mtext("Petal.Width", side = 4))

LS0tCnRpdGxlOiAiUGxvdGluZyBvZiBNdWx0aXBsZSBZLWF4aXMgIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKQnk6IEFtaXQgS3VtYXIgUHJhZGhhbgotLS0KClRoaXMgaXMgYW4gUiBNYXJrZG93biBmb3IgcGxvdHRpbmcgbXVsdGlwbGUgWSBheGlzIGluIGEgZ3JhcGguIFRoaXMgdHlwZSBvZiBncmFwaHMgYXJlIHZlcnkgZXNzZW50aWFsIHdoZW4gYW5hbHlzaXMgdmFyaWFibGVzIG9mIGRpZmZyZW50IHVuaXQvIHJhbmdlIHNjYWxlLiBUaGlzIHNjcmlwdHMgcHJpbWFyeSBnb2FsIGlzIHRvIHBsb3R0aW5nIG11bHRpcGxlIFktQVhJUyB1c2luZyBpbmJ1bHQgcGxvdCBmdW5jdGlvbi4gSG93ZXZlciBvdGhlciBmZWF0dXJlcyBmb3IgdGhlIGdyYXBoIGxpa2UgYXhpcyBuYW1lLCB0aXRsZSBjYW4gYmUgZWFzaWx5IGFkZGVkLgoKYGBge3J9CiMgSXJpcyBEYXRhIFNldApoZWFkKGlyaXMpCgojIHBsb3QgZmlyc3QgcGxvdCBmb3IgU2VwYWwgTGVuZ3RoIAp3aXRoKGlyaXMsIHBsb3QoU2VwYWwuTGVuZ3RoLCBjb2wgPSAicmVkIix0eXBlPSAibyIpKQoKIyBzZXQgbmV3IHBsb3QKcGFyKG5ldyA9IFQpIAoKIyBwbG90IHNlY29uZCBwbG90LCBidXQgd2l0aG91dCBheGlzIGZvciBQZXRhbCBXaWR0aAp3aXRoKGlyaXMsIHBsb3QoUGV0YWwuV2lkdGgsIHR5cGUgPSAibCIsIHhheHQgPSAibiIsIHlheHQgPSAibiIsIHhsYWIgPSAiIiwgeWxhYiA9ICIiKSkKCiMgZGVmaW5lIHktYXhpcyBhbmQgcHV0IHktbGFicwpheGlzKDQpCndpdGgoaXJpcywgbXRleHQoIlBldGFsLldpZHRoIiwgc2lkZSA9IDQpKQpgYGAK