forked from rdpeng/ExData_Plotting1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
plot3.R
31 lines (21 loc) · 1.42 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
# Approximating the required memory for reading the data: 2080000 [rows] * 9 [columuns] * 8 [bytes/Numeric] / 2^20 [MB/bytes] = 142.82 MB => Reading the complete data without prior subsetting should be fine on this computer
# Reading the data, Variables are seperated by ";", change "?" to "NA"
data<-read.table("household_power_consumption.txt", header=T, sep=";", na.strings="?")
# Changing the variable Date in data to class Date, as.Date("1/1/2007", "%d/%m/%Y")
data$Date<-as.Date(data$Date,"%d/%m/%Y")
# Creating new variable DateTime containing the date and time, class Date/Time, to be able to plot Date/Time on (x-axis) later
data$DateTime<-strptime(paste(data$Date,data$Time), "%Y-%m-%d %H:%M:%S")
# Subsetting the data to the dates 2007-02-02 and 2007-02-01
subset_data<-subset(data, data$Date=="2007-02-02" | data$Date=="2007-02-01")
# Creating png file
png(file="plot3.png")
# Plotting subset for the variables Sub_metering_1..3 (y-axis) and variable DateTime (x-axis) and sending to png file
with(subset_data, plot(DateTime,Sub_metering_1, type="l", xlab="", ylab="Energy sub metering"))
# Adding Sub_metering_2
with(subset_data, lines(DateTime,Sub_metering_2,col="red"))
# Adding Sub_metering_3
with(subset_data, lines(DateTime,Sub_metering_3,col="blue"))
# Adding legend
legend("topright", lty=1, col = c("black", "red","blue"), legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"))
# Closing the file device
dev.off()