plot2.R

d = read.csv('household_power_consumption.txt', sep = ";")
d = d[ d$Date %in% c('1/2/2007','2/2/2007'),]
dt <- strptime( paste(d$Date, d$Time, sep=' '), format="%d/%m/%Y %H:%M:%S")
Sys.setlocale("LC_TIME", "C") # Otherwise weekdays are not english for me!

####2
png('plot2.png', width=480, height=480)
plot(dt, as.numeric(as.character(d$Global_active_power)), type = 'l', xlab='', ylab='Global Active Power (kilowatts)')
dev.off()