Assignment 1

Assignment 1 complete

Author: yousifa

plot1.R

@@ -0,0 +1,12 @@
+# plot1.R to plot global active power
+
+## Read and subset data for proper dates
+data <- read.table('household_power_consumption.txt',na.strings="?",header=T,sep=";",colClasses=c('character','character','numeric',
+          'numeric', 'numeric', 'numeric','numeric', 'numeric', 'numeric'))
+data$DateTime <- strptime(paste(data$Date, data$Time),"%d/%m/%Y %H:%M:%S")
+plotData <- subset(data,as.Date(DateTime) <= as.Date("2007-02-02") & as.Date(DateTime) >= as.Date("2007-02-01"))
+
+## Build plot and save png
+png("plot1.png",height=504,width=504,bg="transparent")
+hist(plotData$Global_active_power,col="Red",xlab="Global Active Power (kilowatts)",main="Global Active Power")
+dev.off()

plot1.png

@@ -0,0 +1,13 @@
+# plot2.R to plot global active power time series
+
+## Read and subset data for proper dates
+data <- read.table('household_power_consumption.txt',na.strings="?",header=T,sep=";",colClasses=c('character','character','numeric',
+          'numeric', 'numeric', 'numeric','numeric', 'numeric', 'numeric'))
+data$DateTime <- strptime(paste(data$Date, data$Time),"%d/%m/%Y %H:%M:%S")
+plotData <- subset(data,as.Date(DateTime) <= as.Date("2007-02-02") & as.Date(DateTime) >= as.Date("2007-02-01"))
+
+## Build plot and save png
+png("plot2.png",height=504,width=504,bg="transparent")
+plot(plotData$DateTime,plotData$Global_active_power,pch=NA,ylab="Global Active Power (kilowatts)",xlab="")
+lines(plotData$DateTime,plotData$Global_active_power)
+dev.off()

plot2.R

@@ -0,0 +1,16 @@
+# plot3.R to plot global active power time series energy submetering
+
+## Read and subset data for proper dates
+data <- read.table('household_power_consumption.txt',na.strings="?",header=T,sep=";",colClasses=c('character','character','numeric',
+          'numeric', 'numeric', 'numeric','numeric', 'numeric', 'numeric'))
+data$DateTime <- strptime(paste(data$Date, data$Time),"%d/%m/%Y %H:%M:%S")
+plotData <- subset(data,as.Date(DateTime) <= as.Date("2007-02-02") & as.Date(DateTime) >= as.Date("2007-02-01"))
+
+## Build plot and save png
+png("plot3.png",height=504,width=504,bg="transparent")
+plot(plotData$DateTime,plotData$Sub_metering_1,pch=NA,ylab="Energy sub metering",xlab="")
+lines(plotData$DateTime,plotData$Sub_metering_1,col="Black")
+lines(plotData$DateTime,plotData$Sub_metering_2,col="Red")
+lines(plotData$DateTime,plotData$Sub_metering_3,col="Blue")
+legend("topright",c("Sub_metering_1","Sub_metering_2","Sub_metering_3"),col=c("Black", "Red", "blue"),lty=c(1,1,1))
+dev.off()

plot2.png

@@ -0,0 +1,28 @@
+# plot4.R to plot global active power multiplot
+
+## Read and subset data for proper dates
+data <- read.table('household_power_consumption.txt',na.strings="?",header=T,sep=";",colClasses=c('character','character','numeric',
+          'numeric', 'numeric', 'numeric','numeric', 'numeric', 'numeric'))
+data$DateTime <- strptime(paste(data$Date, data$Time),"%d/%m/%Y %H:%M:%S")
+plotData <- subset(data,as.Date(DateTime) <= as.Date("2007-02-02") & as.Date(DateTime) >= as.Date("2007-02-01"))
+
+## Build plot and save png
+png("plot4.png",height=504,width=504,bg="transparent")
+par(mfrow=c(2,2))
+
+plot(plotData$DateTime,plotData$Global_active_power,pch=NA,ylab="Global Active Power",xlab="")
+lines(plotData$DateTime,plotData$Global_active_power)
+
+plot(plotData$DateTime,plotData$Voltage,xlab="datetime",ylab="Voltage",pch=NA)
+lines(plotData$DateTime, plotData$Voltage)
+
+plot(plotData$DateTime,plotData$Sub_metering_1,pch=NA,ylab="Energy sub metering",xlab="")
+lines(plotData$DateTime,plotData$Sub_metering_1,col="Black")
+lines(plotData$DateTime,plotData$Sub_metering_2,col="Red")
+lines(plotData$DateTime,plotData$Sub_metering_3,col="Blue")
+legend("topright",c("Sub_metering_1","Sub_metering_2","Sub_metering_3"),col=c("Black", "Red", "blue"),lty=c(1,1,1))
+
+with(plotData,plot(DateTime,Global_reactive_power,pch=NA,xlab="datetime"))
+with(plotData,lines(DateTime,Global_reactive_power))
+
+dev.off()