Creating_Plot_3.R

                ## set the working directory###
setwd("C:/Users/My/Desktop/Data Science Course/Exploratory Data Analysis/Course Project Week 1")
                         ##link the data##
source("Open_Data.R")

                         ##create the png image##
png(filename = "Plot3.png", width = 480, height = 480, units = "px")
plot(Date_time, Sub_metering_1, type = "l", col = "black", xlab = "", ylab = "Energy sub metering", xaxt = "n")
lines(Date_time, Sub_metering_1, col = "black")
lines(Date_time, Sub_metering_2, col = "red")
lines(Date_time, Sub_metering_3, col = "blue")
legend("topright", col = c("black", "red", "blue"), c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), lwd = 1)
axis(side = 1, at = c(1, 1441, 2880), labels = c("Thu", "Fri", "Sat"))
dev.off()