ExData_Plotting1/plot4.R at master · TFellet/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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
source("loadData.R")
data <- loadData()

png("plot4.png")

par(mfcol = c(2, 2))

#plot 1
plot(data$Datetime,
     data$Global_active_power,
     type="l", xlab = "",
     ylab = "Global Active Power (kilowatts)")


#plot 2

plot(data$Datetime,
     data$Sub_metering_1,
     type="l",
     xlab="",
     ylab="Energy sub metering",
     col="black")

lines(data$Datetime, data$Sub_metering_2, type="l", col="red")
lines(data$Datetime, data$Sub_metering_3, type="l", col="blue")

legend("topright",
       col=c("black", "red", "blue"),
       lty=1,
       legend=c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"))


#plot 3

plot(data$Datetime,
     data$Voltage,
     type="l", xlab = "datetime",
     ylab = "Voltage")


#plot 4

plot(data$Datetime,
     data$Global_reactive_power,
     type="l", xlab = "datetime",
     ylab = "Global_reactive_power")

dev.off()