Plot2.R

{

	# reads only the data for 02/01/2007 and 02/02/2007 from 	the original data text file  into a Data Frame called 	power

	power <- read.table("household_power_consumption.txt",sep=";", header=FALSE, skip=66637, nrows=2880)

	# adds the right column/variables names to the power Data 	Frame

	colnames(power) <- c	("Date","Time","Global_active_power","Global_reactive_power","Voltage","Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3")

	# loads the lubridate package

	library(lubridate)

	# Adds a DateTime variable/column to the power Data 	Frame, which is a merge of Date and Time in Date/Time 	format

	power$DateTime = dmy_hms(paste(power$Date,power$Time))

	# Sets the date language to English

	Sys.setlocale("LC_ALL", "English")

	# Opens png device
	png(file="plot2.png")

	# Plots the requested graphe

	with(power,plot(DateTime,Global_active_power,type="l",xlab="",ylab="Global Active Power (kilowatts)"))	

	# Closes devices
	dev.off()
}