plot4.R

# This script renders the fourth plot

# remove all variables from the workspace
rm(list = ls())

# set the work directory
setwd("C:/Users/Rod/Documents/coursera/data-science/04_ExploratoryDataAnalysis/02-second-try/week_01/project/ExData_Plotting1")

# Import getData function
source('util.R')
message('Printing plot 4...')
data <- getData()


png('output/plot4.png', width=480, height=480, bg='transparent')

# 4 graphs, 2 per row.
par(mfrow=c(2,2))

# Plot the four graphs
with(data, {
    plot(DateTime, Global_active_power, type='l', xlab='', ylab='Global Active Power')
})

with(data, {
    plot(DateTime, Voltage, xlab='datetime', type='l')
})

with(data, {
    plot(DateTime, Sub_metering_1, type='l', xlab='', ylab="Energy sub metering")
    lines(DateTime, Sub_metering_2, type='l', col='red')
    lines(DateTime, Sub_metering_3, type='l', col='blue')
})

with(data, {
    plot(DateTime, Global_reactive_power, xlab='datetime', type='l')
})

dev.off()