ExData_Plotting1/plot3.R at master · flebr1/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
#
# exploratory data analysis - project 1
#
# script to generate "Plot 3"
#

source("prep_and_load_data.R")

png(
  filename = "plot3.png",
  width = 480,
  height = 480
)

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

lines(
  hpcDataToPlot$Datetime,
  hpcDataToPlot$Sub_metering_2,
  type = "l",
  col = "red"
)

lines(
  hpcDataToPlot$Datetime,
  hpcDataToPlot$Sub_metering_3,
  type = "l",
  col = "blue"
)

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

dev.off()