ExData_Plotting1/plot3.R at master · jphiggs/ExData_Plotting1 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
require(dplyr)

dataFile <- read.table("./exdata_data_household_power_consumption/household_power_consumption.txt",
                       header=TRUE, sep=";", na.strings = "?",stringsAsFactors=FALSE)

consolData <- as.POSIXlt(strptime(paste(dataFile$Date, dataFile$Time, sep=" "),
                                  format = "%d/%m/%Y %H:%M:%S"))

datedData <- cbind(consolData, dataFile[,3:9])

names(datedData)[1] <- "Date"

febData <- filter(datedData, Date >= as.POSIXlt("2007-02-01 00:00:00") &
                      Date < as.POSIXlt("2007-02-03 00:00:00"))

png(file="plot3.png", width = 480, height = 480)
plot(febData$Date, febData$Sub_metering_1, xlab = "", ylab="Energy sub metering", type="l")
points(febData$Date, febData$Sub_metering_2, type="l", col="red")
points(febData$Date, febData$Sub_metering_3, type="l", col="blue")
legend("topright", pch='____', col = c("black", "red", "blue"),
       legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"))

dev.off()