Plot1.R

# Packages need
require(dplyr)
require(lubridate)

# Read in data
power = read.table("household_power_consumption.txt", header = TRUE, sep = ";", na.strings = "?", as.is = TRUE)

# Convert dates and times
power$Datetime = strptime(paste(power$Date, power$Time), format = "%d/%m/%Y %H:%M:%S")

# Filter data - only Feb 1 & 2, 2007
power = power[year(power$Datetime) == 2007,]
power = power[month(power$Datetime) == 2,]
power = power[day(power$Datetime) == 2 | day(power$Datetime) == 1,]

# Clear out original date and time variables - OCD
power = power[,!(names(power) %in% c("Date","Time"))]

# Create plot
png(filename = "plot1.png", width = 480, height = 480, units = "px")
hist(power$Global_active_power,
     main = "Global Active Power",
     xlab = "Global Active Power (kilowatts)",
     ylim = c(0,1200),
     col = "red",
     axes = FALSE)
axis(2, at=200*0:6)
axis(1, at=2*0:3)
dev.off()