plot3.R

data <- read.table('household_power_consumption.txt', header = T, sep=";")

data$CorrectedTime <- as.POSIXct(paste(data[,'Date'], data[,'Time']), format = "%Y-%m-%d %H:%M:%S")

png(file = "plot3.png")
with(data,{plot(CorrectedTime, Sub_metering_1, type = "n", ylim = c(0,40), ylab= "Energy sub metering", xlab = "")
           lines(CorrectedTime, Sub_metering_1, col = 'black')
           lines(CorrectedTime, Sub_metering_2, col = 'red')
           lines(CorrectedTime, Sub_metering_3, col = 'blue')
           
          
})
legend("topright", col = c('black','blue','red'), pch = '-', legend = c('Sub_metering_1', 'Sub_metering_2','Sub_metering_3') )
dev.off()