Add plots and generators scripts.

plot1.R

@@ -0,0 +1,13 @@
+get_data <- function() {
+	t <- read.csv("household_power_consumption.txt", header = TRUE, sep = ";"
+								, na.strings = "?")
+	t[t$Date == "1/2/2007" | t$Date == "2/2/2007", ]
+
+}
+
+x <- get_data()
+Sys.setlocale(category = "LC_ALL", locale = "en_US")
+png("plot1.png", 480, 480)
+hist(x$Global_active_power, main = "Global Active Power", col = "red"
+		 , xlab = "Global Active Power (kilowatts)")
+dev.off()

plot2.R

@@ -0,0 +1,15 @@
+get_data <- function() {
+	t <- read.csv("household_power_consumption.txt", header = TRUE, sep = ";"
+								, na.strings = "?")
+	t[t$Date == "1/2/2007" | t$Date == "2/2/2007", ]
+
+}
+
+x <- get_data()
+x$DT <- strptime(paste(as.character(x$Date),as.character(x$Time), sep = " ")
+								 , format = "%d/%m/%Y %H:%M:%S")
+Sys.setlocale(category = "LC_ALL", locale = "en_US")
+png("plot2.png", 480, 480)
+plot(x$DT, x$Global_active_power, type = "l"
+		 , ylab = "Global Active Power (kilowatts)", xlab = "")
+dev.off()

plot3.R

@@ -0,0 +1,23 @@
+get_data <- function() {
+	t <- read.csv("household_power_consumption.txt", header = TRUE, sep = ";"
+									, na.strings = "?")
+	t[t$Date == "1/2/2007" | t$Date == "2/2/2007", ]
+
+}
+
+x <- get_data()
+x$DT <- strptime(paste(as.character(x$Date),as.character(x$Time), sep = " ")
+								 	, format = "%d/%m/%Y %H:%M:%S")
+Sys.setlocale(category = "LC_ALL", locale = "en_US")
+png("plot3.png", 480, 480)
+plot(x$DT, x$Sub_metering_1, type = "n", xlab = ""
+		 	, ylab = "Energy sub metering")
+lines(x$DT, x$Sub_metering_1, col = "black")
+lines(x$DT, x$Sub_metering_2, col = "red")
+lines(x$DT, x$Sub_metering_3, col = "blue")
+legend("topright"
+			 	, legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3")
+				, col = c("black", "red", "blue")
+			  , lty = 1)
+
+dev.off()

plot4.R

@@ -0,0 +1,40 @@
+get_data <- function() {
+	t <- read.csv("household_power_consumption.txt", header = TRUE, sep = ";"
+								, na.strings = "?")
+	t[t$Date == "1/2/2007" | t$Date == "2/2/2007", ]
+
+}
+
+x <- get_data()
+x$DT <- strptime(paste(as.character(x$Date),as.character(x$Time), sep = " ")
+								 , format = "%d/%m/%Y %H:%M:%S")
+
+Sys.setlocale(category = "LC_ALL", locale = "en_US")
+png("plot4.png", 480, 480)
+par(mfrow = c(2, 2))
+
+# first
+plot(x$DT, x$Global_active_power, type = "l"
+		 , ylab = "Global Active Power", xlab = "")
+
+#second
+plot(x$DT, x$Voltage, type = "l"
+		 , ylab = "Voltage", xlab = "datetime")
+
+# third
+plot(x$DT, x$Sub_metering_1, type = "n", xlab = ""
+		 , ylab = "Energy sub metering")
+lines(x$DT, x$Sub_metering_1, col = "black")
+lines(x$DT, x$Sub_metering_2, col = "red")
+lines(x$DT, x$Sub_metering_3, col = "blue")
+legend("topright"
+			 , legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3")
+			 , col = c("black", "red", "blue")
+			 , lty = 1
+			 , bty = "n")
+
+#forth
+plot(x$DT, x$Global_reactive_power, type = "l"
+		 , ylab = "Global_reactive_power", xlab = "datetime")
+
+dev.off()