plot2.R

## Loading the dplyr library
library(dplyr)
## Loading the file
household <- read.csv("household_power_consumption.txt", header=TRUE, sep=";")
## Select only the dates we are interested in
householdSub <- filter(household, Date=="1/2/2007" | Date=="2/2/2007")
## Formatting the dates
householdSub <- mutate(householdSub, DateTime =  as.POSIXct(paste(Date, Time), format = '%d/%m/%Y %H:%M:%S'))
## Converting the factors as numerics
householdSub <- mutate(householdSub, Global_active_power = as.numeric(as.character(householdSub$Global_active_power)))
## Create the file to draw in
png(file = "plot2.png", width = 480, height = 480)
## Setting the background color as transparent
par("bg"= "transparent")
## Drawing the plot
with(householdSub, plot(DateTime, Global_active_power, type="l", xlab="", ylab="Global Active Power (kilowatts)"))
## Closing the device
dev.off()