first push

Author: Rodolphe2005

plot1.R

@@ -0,0 +1,7 @@
+df = read.table("ExData_Plotting1/household_power_consumption.txt", header = TRUE, sep = ";")
+d1 = strptime("2007-02-01","%Y-%m-%d")
+d2 = strptime("2007-02-02","%Y-%m-%d")
+df$Date = strptime(df$Date, "%d/%m/%Y")
+df2 = df[(df$Date == d1) | (df$Date == d2),]
+df2$Global_active_power = as.numeric(df2$Global_active_power)/1000
+hist(df2$Global_active_power, xlim = range(0:6), col = "red", main = "Global Active Power", xlab = "Global Active Power (kilowatts)", ylab = "Frequency", breaks = 16)

plot1.png

@@ -0,0 +1,9 @@
+df = read.table("ExData_Plotting1/household_power_consumption.txt", header = TRUE, sep = ";")
+d1 = strptime("2007-02-01","%Y-%m-%d")
+d2 = strptime("2007-02-02","%Y-%m-%d")
+df$Date = strptime(df$Date, "%d/%m/%Y")
+df2 = df[(df$Date == d1) | (df$Date == d2),]
+df2$Global_active_power = as.numeric(df2$Global_active_power)/1000
+df2$NewDate = paste(df2$Date, df2$Time)
+df2$NewDate = strptime(df2$NewDate, "%Y-%m-%d %H:%M:%S")
+plot(df2$NewDate, df2$Global_active_power, type = "l", ylab = "Global Active Power (kilowatts)", xlab = "")

plot2.R

@@ -0,0 +1,16 @@
+df = read.table("ExData_Plotting1/household_power_consumption.txt", header = TRUE, sep = ";", stringsAsFactors = F)
+d1 = strptime("2007-02-01","%Y-%m-%d")
+d2 = strptime("2007-02-02","%Y-%m-%d")
+df$Date = strptime(df$Date, "%d/%m/%Y")
+df = df[(df$Date == d1) | (df$Date == d2),]
+
+df$NewDate = paste(df$Date, df2$Time)
+df$NewDate = strptime(df$NewDate, "%Y-%m-%d %H:%M:%S")
+
+df$Sub_metering_1 = as.numeric(df$Sub_metering_1)
+df$Sub_metering_2 = as.numeric(df$Sub_metering_2)
+df$Sub_metering_3 = as.numeric(df$Sub_metering_3)
+
+plot(df$NewDate, df$Sub_metering_1, type = "l", ylab = "Energy Sub Metering", xlab = "")
+points(df$NewDate, df$Sub_metering_2, col = "red", type = "l")
+points(df$NewDate, df$Sub_metering_3, col = "blue", type = "l")

plot2.png

@@ -0,0 +1,16 @@
+df = read.table("ExData_Plotting1/household_power_consumption.txt", header = TRUE, sep = ";", stringsAsFactors = F)
+d1 = strptime("2007-02-01","%Y-%m-%d")
+d2 = strptime("2007-02-02","%Y-%m-%d")
+df$Date = strptime(df$Date, "%d/%m/%Y")
+df = df[(df$Date == d1) | (df$Date == d2),]
+
+df$NewDate = paste(df$Date, df2$Time)
+df$NewDate = strptime(df$NewDate, "%Y-%m-%d %H:%M:%S")
+
+df$Sub_metering_1 = as.numeric(df$Sub_metering_1)
+df$Sub_metering_2 = as.numeric(df$Sub_metering_2)
+df$Sub_metering_3 = as.numeric(df$Sub_metering_3)
+
+plot(df$NewDate, df$Sub_metering_1, type = "l", ylab = "Energy Sub Metering", xlab = "")
+points(df$NewDate, df$Sub_metering_2, col = "red", type = "l")
+points(df$NewDate, df$Sub_metering_3, col = "blue", type = "l")