plot2.R

# Load packages 
library(data.table)

# Check the library requs
library_check <- sapply("data.table", require, character.only = TRUE
                        , quietly = TRUE)

# Working the directories
path <- getwd()

if(!file.exists("./data")){
    dir.create("./data")
}

url <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"

# Download and unzip the dataset
download.file(url, file.path(path, "./data/DataFiles.zip"))
unzip(zipfile = "./data/DataFiles.zip")

# Load the dataset 
data <- data.table::fread(input = "./data/household_power_consumption.txt",
                          na.strings="?")

data[, Global_active_power := lapply(.SD, as.numeric), .SDcols = c("Global_active_power")]

data[, dateTime := as.POSIXct(paste(Date, Time), format = "%d/%m/%Y %H:%M:%S")]

# subset the data to the desired time interval of two days
data <- data[(dateTime >= "2007-02-01") & (dateTime < "2007-02-02")]

png("plot2.png", width=480, height=480)

# plot the second png plot
plot(x = data[,dateTime],
     y = data[, Global_active_power],
     type = "l",
     xlab = "",
     ylab = "Global Active Power (kilowatts)")
dev.off()