plot3.R

# Read the data
data <- read.table(pipe('grep "^[1-2]/2/2007" "household_power_consumption.txt"'), sep = ";",na.strings = "?")
colnames(data) <- c("Date", "Time", "GlobalActivePower", "GlobalReactivePower", "Voltage", "GlobalIntensity", "SubMetering1", "SubMetering2", "SubMetering3")

# Convert the Date and Time Variables in a new column
data$DateTime <- strptime(paste(data$Date, data$Time), format = "%d/%m/%Y %H:%M:%S")

# plot3
png(filename = "plot3.png", width = 480, height = 480, units = "px", pointsize = 12)
plot(data$DateTime, data$SubMetering1, type = "l", xlab = "",ylab = "Energy sub metering", col = "black")
lines(data$DateTime, data$SubMetering2, col = "red")
lines(data$DateTime, data$SubMetering3, col = "blue")
legend('topright',legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"),col = c("black", "red", "blue"), lty = 'solid')
dev.off()