rdpeng/ExData_Plotting1 — pull request #86 by shahsarick (2014-07-14 00:27:08+00:00)
Title: plot1.R

source("prep.R")

doPlot1 <- function() {
tbl <- prepareData()
png(filename = "plot1.png", width = 480, height = 480, units = "px")
hist(tbl$Global_active_power, main="Global Active Power", xlab="Global Active Power (kilowatts)", col="red")
dev.off()
}

doPlot1()