ExData_Plotting1/plot4.R at master · macayaven/ExData_Plotting1 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
setwd("/Users/carloscrespo/Documents/dataScience/exploratoryDA")
download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", destfile="./data",method="curl")
unzip("./data")

file <- read.csv("household_power_consumption.txt", sep=";", na.strings = "?")
filteredfile <- file[as.Date(file[,"Date"],format="%d/%m/%Y") >= as.Date(c("01/02/2007"), format="%d/%m/%Y") & as.Date(file[,"Date"],format="%d/%m/%Y") <= as.Date(c("02/02/2007"), format="%d/%m/%Y"),]
filteredfile$Date <- strptime(paste(filteredfile$Date,filteredfile$Time), format="%d/%m/%Y %H:%M:%S")

png(filename = "plot4.png", width = 480, height = 480)
par(mfrow=c(2,2))

plot(filteredfile$Date, filteredfile$Global_active_power, type="l", ylab="Global Active Power", xlab="")

plot(filteredfile$Date, filteredfile$Voltage, type="l", ylab="Voltage", xlab="datetime")

plot(filteredfile$Date, filteredfile$Sub_metering_1, type="l", ylab="Energy sub metering", xlab="")
lines(filteredfile$Date, filteredfile$Sub_metering_2, col="red")
lines(filteredfile$Date, filteredfile$Sub_metering_3, col="blue")
legend(x="topright", legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), col=c("black","red","blue"), lwd=1)

plot(filteredfile$Date, filteredfile$Global_reactive_power, type="l", ylab="Global_reactive_power", xlab="datetime")

dev.off()