plot2.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
}

createPlot2 <- function()
{
  df <- read()
  
  # needed this to switch to english day names in cyrilic r studio
  Sys.setlocale("LC_TIME", "English")
  
  plot(df$DateTime, df$Global_AC, 
       main = "",
       ylab="Global Active Power (kilowatts)",
       xlab="",
       type="l"
  )
  
  dev.copy(png, file="plot2.png")
  
  dev.off()
}