forked from rdpeng/ExData_Plotting1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
plot3.R
32 lines (26 loc) · 1.33 KB
/
plot3.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
library(data.table)
#read data from zipfile
consumption <- read.table(unz("./household_power_consumption.zip","household_power_consumption.txt"),
header=TRUE, na.strings = "?", sep = ";",
stringsAsFactors = FALSE)
#convert date and time columns to a combined dateTime so we can subset
consumption$DateTime <- paste(consumption$Date, consumption$Time)
consumption$DateTime <- strptime(consumption$DateTime, format = "%d/%m/%Y %H:%M:%S")
#get data of interest (2007-02-01 and 2007-02-02)
lowDate <- strptime("01/02/2007 00:00:00", format = "%d/%m/%Y %H:%M:%S")
highDate <- strptime("03/02/2007 00:00:00", format = "%d/%m/%Y %H:%M:%S")
consumptionOfInterest <- subset(consumption, DateTime >= lowDate
& DateTime < highDate)
#Create plot as png
png(filename = "plot3.png", width = 480, height = 480)
#Create plot
with(consumptionOfInterest, plot(DateTime, Sub_metering_1, type="l", xlab="",
ylab="Energy sub metering"))
#Add additional lineplots
with(consumptionOfInterest, lines(DateTime, Sub_metering_2, col="red"))
with(consumptionOfInterest, lines(DateTime, Sub_metering_3, col="blue"))
#Add legend
legend("topright", c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"),
col=c("black","red","blue"),
lty =c(1,1))
dev.off()