forked from rdpeng/ExData_Plotting1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
plot3.R
20 lines (20 loc) · 1.1 KB
/
plot3.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
## Read the data
df <- read.table("household_power_consumption.txt",header=TRUE,sep=";",quote="",stringsAsFactors=FALSE,
comment.char="", na.strings=c("?"),
colClasses=c("character", "character", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric"))
## Filter the two days required
df <- subset(df, Date %in% c("1/2/2007", "2/2/2007"))
## Create a new column with the datetime
datetime <- strptime(paste(df[,1], df[,2]), "%e/%m/%Y %H:%M:%S")
df <- cbind(df, datetime )
## Switch to English locale to get days in English on the graph (if the PC is not in english)
Sys.setlocale("LC_TIME", "English")
## Open the graphic device
#png(file="plot3.png", width=480, height=480)
## Plot the 3 curves and the legend
with(df, plot(datetime, Sub_metering_1, type="l", xlab=NA, ylab="Energy sub metering"))
with(df, lines(datetime, Sub_metering_2, col="red"))
with(df, lines(datetime, Sub_metering_3, col="blue"))
legend("topright", legend=c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), lty=1, col=c("black", "red", "blue"))
## Close the graphic device
#dev.off()