plot2.R

# Load libraries
library(dplyr)

# Read the data file
fulldata <- read.table('./data/household_power_consumption.txt', header = TRUE,
                       sep = ";", na.strings = "?")

# Subset on dates of interest using dplyr filter()
subset <- filter(fulldata, Date == '1/2/2007' | Date == '2/2/2007')

# Convert date/time character strings to actual dates/times
subset$Time <- strptime(paste(subset$Date, subset$Time, sep = ' '),
                        '%d/%m/%Y %H:%M:%S')
subset$Date <- as.Date(subset$Date, '%d/%m/%Y')

# Plot 2
with(subset, plot(Time, Global_active_power,
                  ylab = 'Global Active Power (kilowatts)',
                  xlab = '', type = 'l'))


# Save the output to a png file
dev.copy(png, file = './figures/plot2.png')
dev.off()