plot multiple lines in r
# Plotting the electrical parameters around the detected failure
library(devEMF)
emf(file = "Electrical parameters on inverter saturation.emf", emfPlus = TRUE)
plot(y=yRange$Pac, x=yRange$Time, type='l', ylim=c(0,1100), xlab='Time', ylab='Vmp, Pac, Imp', lwd=2)
lines(y=yRange$Pmp, x=yRange$Time, col='blue', lwd=2)
lines(y=yRange$Vmp, x=yRange$Time, col='red', lwd=2)
legend(yRange$Time[round(0.725*nrow(yRange))], 1100, legend=c("AC Power (kW)", "DC Power (kW)", "DC Voltage (V)"),
col=c("black", "blue", "red"), lty=1, cex=0.8,
title='Legend', text.font=4, bg='lightblue')
#lines(y=yRange$Imp, x=yRange$Time, col='purple', lwd=2)
#lines(y=yRange$GI, x=yRange$Time, col='green3', lwd=2)
dev.off()