plot1.R

read <- function()
{
  fn <- "household_power_consumption.txt"
  
  df <- read.csv(fn,
                 as.is = T,
                 dec = '.',
                 sep = ";",
                 na.strings = "?",
                 skip = 66636,
                 nrows = 2880,
                 col.names = c("Date","Time", "Global_AC", "Global_RC", "V", "Global_Int","Sub_1","Sub_2", "Sub_3"),
                 colClasses = c("character", "character", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric"))
  
  df$DateTime <- strptime(paste(df$Date, df$Time),"%d/%m/%Y %H:%M:%S")
  
  df
}

createPlot1 <- function()
{
  df <- read()
  
  hist(df$Global_AC, 
       main = "Global Active Power",
       xlab="Global Active Power (kilowatts)",
       col = "Red"
       )
  
  dev.copy(png, file="plot1.png")
  
  dev.off()
}