Scripts for plots

Author: akumar2005

LoadData.R

@@ -0,0 +1,31 @@
+###### Load dataset into R ####################
+
+######### Download the zip file in working area #########
+setwd("./ExporatoryDataAnalysis")
+url<-"https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+file <- "household_power_consumption"
+download.file(url, file, method = "curl")
+
+# Extract the contents of zip file, gives "household_power_consumption.txt" file
+unzip(file, exdir = "./")
+dataFile <- "household_power_consumption.txt"
+
+#Load the dataset into data frame
+data <- read.table(dataFile, header=TRUE, sep=";")
+
+# Subset the data for the two dates of interest
+dataSubset <- data[data$Date=="1/2/2007" | data$Date=="2/2/2007",]
+
+# Convert columns (3-9) to numeric
+for(i in c(3:9)) {dataSubset[,i] <- as.numeric(as.character(dataSubset[,i]))}
+
+# Create Date Time variable
+# Convert Date Time variable to proper format
+datetime <- strptime(paste(dataSubset$Date, dataSubset$Time, sep=" "), "%d/%m/%Y %H:%M:%S")
+
+
+
+
+
+
+        

README.md

@@ -112,3 +112,9 @@ The four plots that you will need to construct are shown below.
 
 ![plot of chunk unnamed-chunk-5](figure/unnamed-chunk-5.png) 
 
+
+## Instructions for generating plots
+1. Download the scripts (LoadData.R, plot1.R, plot2.R, plot3.R, plot4.R) to some directory;
+2. source("LoadData.R") will download the zipped data file and extract the dataset 
+   and save in the working area.
+3. The scipts plot1.R, plot2.R, plot3.R and plot4.R generates and saves png files.

plot1.R

@@ -0,0 +1,8 @@
+## Script for Plot 1
+## Uses information about the dataset and variables from the script LoadData.R
+## source("LoadData.R") will load the dataset and variables in R
+## source("plot1.R") will save the png file in the working area
+
+png("plot1.png", width=480, height=480)
+hist(dataSubset$Global_active_power, col = "red", main = "Global Active Power", xlab = "Global Active Power(kilowatts)")
+dev.off()

plot1.png

@@ -0,0 +1,8 @@
+## Script for Plot 2
+## Uses information about the dataset and variables from script LoadData.R
+## source("LoadData.R") will load the dataset and variables in R
+## source("plot2.R") will save the png file in the working area
+
+png("plot2.png", width=480, height=480)
+plot(datetime, dataSubset$global_active_power, type="l", xlab="", ylab="Global Active Power (kilowatts)")
+dev.off()

plot2.R

@@ -0,0 +1,11 @@
+## Script for Plot 3
+## Uses information about the dataset and variables from script LoadData.R
+## source("LoadData.R") will load the dataset and variables in R
+## source("plot3.R") will save the png file in the working area
+
+png("plot3.png", width=480, height=480)
+plot(datetime, dataSubset$Sub_metering_1, type="l", ylab="Energy sub metering", xlab="")
+lines(datetime, dataSubset$Sub_metering_2, type="l", col="red")
+lines(datetime, dataSubset$Sub_metering_3, type="l", col="blue")
+legend("topright", c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), lty=1, lwd=2.5, col=c("black", "red", "blue"))
+dev.off()

plot2.png

@@ -0,0 +1,15 @@
+## Script for Plot 4
+## Uses information about the dataset and variables from script LoadData.R
+## source("LoadData.R") will load the dataset and variables in R
+## source("plot4.R") will save the png file in the working area
+
+png("plot4.png", width=480, height=480)
+par(mfrow = c(2, 2))
+plot(datetime,dataSubset$Global_active_power, type="l", xlab="", ylab="Global Active Power")
+plot(datetime, dataSubset$Voltage, type="l", xlab="datetime", ylab="Voltage")
+plot(datetime, dataSubset$Sub_metering_1, type="l", ylab="Energy sub metering", xlab="")
+lines(datetime, dataSubset$Sub_metering_2, type="l", col="red")
+lines(datetime, dataSubset$Sub_metering_3, type="l", col="blue")
+legend("topright", c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), lty=1, lwd=2.5, col=c("black", "red", "blue"), bty="o")
+plot(datetime, dataSubset$Global_reactive_power, type="l", xlab="datetime", ylab="Global_reactive_power")
+dev.off()