├── plot1.png ├── plot2.png ├── plot3.png ├── plot4.png ├── figure ├── unnamed-chunk-2.png ├── unnamed-chunk-3.png ├── unnamed-chunk-4.png └── unnamed-chunk-5.png ├── plot2.R ├── plot1.R ├── plot3.R ├── plot4.R └── README.md /plot1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/plot1.png -------------------------------------------------------------------------------- /plot2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/plot2.png -------------------------------------------------------------------------------- /plot3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/plot3.png -------------------------------------------------------------------------------- /plot4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/plot4.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/figure/unnamed-chunk-2.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/figure/unnamed-chunk-3.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/figure/unnamed-chunk-4.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/butchland/ExData_Plotting1/master/figure/unnamed-chunk-5.png -------------------------------------------------------------------------------- /plot2.R: -------------------------------------------------------------------------------- 1 | library(data.table) 2 | fileUrl <- "household_power_consumption.txt" 3 | colClasses <- c("character","character",rep("numeric",7)) 4 | dtFormat <- "%Y-%m-%d" 5 | DT <- read.table(fileUrl, header=TRUE,sep=";",na.strings="?",colClasses=colClasses) 6 | DT$Time <- strptime(paste(DT$Date,DT$Time,sep=" "),format="%d/%m/%Y %H:%M:%S") 7 | DT$Date <- as.Date(DT$Date,format="%d/%m/%Y") 8 | dtRange <- c(as.Date("2007-02-01",format=dtFormat),as.Date("2007-02-02",format=dtFormat)) 9 | subDT <- subset(DT, Date %in% dtRange) 10 | png(filename="plot2.png") 11 | with(subDT,plot(Time,Global_active_power, type="l", xlab="",ylab="Global Active Power (kilowatts)")) 12 | dev.off() 13 | -------------------------------------------------------------------------------- /plot1.R: -------------------------------------------------------------------------------- 1 | library(data.table) 2 | fileUrl <- "household_power_consumption.txt" 3 | colClasses <- c("character","character",rep("numeric",7)) 4 | dtFormat <- "%Y-%m-%d" 5 | DT <- read.table(fileUrl, header=TRUE,sep=";",na.strings="?",colClasses=colClasses) 6 | DT$Time <- strptime(paste(DT$Date,DT$Time,sep=" "),format="%d/%m/%Y %H:%M:%S") 7 | DT$Date <- as.Date(DT$Date,format="%d/%m/%Y") 8 | dtRange <- c(as.Date("2007-02-01",format=dtFormat),as.Date("2007-02-02",format=dtFormat)) 9 | subDT <- subset(DT, Date %in% dtRange) 10 | 11 | png(filename="plot1.png") 12 | hist(subDT$Global_active_power, col="RED",xlab="Global Active Power (kilowatts)",ylab="Frequency",main="Global Active Power") 13 | dev.off() 14 | 15 | 16 | -------------------------------------------------------------------------------- /plot3.R: -------------------------------------------------------------------------------- 1 | fileUrl <- "household_power_consumption.txt" 2 | colClasses <- c("character","character",rep("numeric",7)) 3 | dtFormat <- "%Y-%m-%d" 4 | dtRange <- c(as.Date("2007-02-01",format=dtFormat),as.Date("2007-02-02",format=dtFormat)) 5 | lineLabels <- c("Sub_metering_1","Sub_metering_2","Sub_metering_3") 6 | 7 | DT <- read.table(fileUrl, header=TRUE,sep=";",na.strings="?",colClasses=colClasses) 8 | DT$Time <- strptime(paste(DT$Date,DT$Time,sep=" "),format="%d/%m/%Y %H:%M:%S") 9 | DT$Date <- as.Date(DT$Date,format="%d/%m/%Y") 10 | subDT <- subset(DT, Date %in% dtRange) 11 | 12 | g <- gl(3,nrow(subDT),labels= lineLabels) 13 | x <- rep(subDT$Time,3) 14 | y <- c(subDT$Sub_metering_1,subDT$Sub_metering_2,subDT$Sub_metering_3) 15 | 16 | png(filename="plot3.png") 17 | plot(x,y, type="n", ylab="Energy sub metering",xlab="") 18 | points(x[g == "Sub_metering_1"],y[g == "Sub_metering_1"],col="BLACK",type="l") 19 | points(x[g == "Sub_metering_2"],y[g == "Sub_metering_2"],col="RED",type="l") 20 | points(x[g == "Sub_metering_3"],y[g == "Sub_metering_3"],col="BLUE",type="l") 21 | legend("topright",legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"),col=c("BLACK","RED","BLUE"),lty=1) 22 | dev.off() 23 | -------------------------------------------------------------------------------- /plot4.R: -------------------------------------------------------------------------------- 1 | fileUrl <- "household_power_consumption.txt" 2 | colClasses <- c("character","character",rep("numeric",7)) 3 | dtFormat <- "%Y-%m-%d" 4 | dtRange <- c(as.Date("2007-02-01",format=dtFormat),as.Date("2007-02-02",format=dtFormat)) 5 | lineLabels <- c("Sub_metering_1","Sub_metering_2","Sub_metering_3") 6 | 7 | DT <- read.table(fileUrl, header=TRUE,sep=";",na.strings="?",colClasses=colClasses) 8 | DT$Time <- strptime(paste(DT$Date,DT$Time,sep=" "),format="%d/%m/%Y %H:%M:%S") 9 | DT$Date <- as.Date(DT$Date,format="%d/%m/%Y") 10 | subDT <- subset(DT, Date %in% dtRange) 11 | 12 | png(filename="plot4.png") 13 | par(mfrow=c(2,2)) 14 | # plot 4a 15 | with(subDT,plot(Time,Global_active_power, type="l", xlab="",ylab="Global Active Power")) 16 | # plot 4b 17 | with(subDT, plot(Time,Voltage, type="l",xlab="datetime")) 18 | 19 | 20 | # plot 4c 21 | g <- gl(3,nrow(subDT),labels= lineLabels) 22 | x <- rep(subDT$Time,3) 23 | y <- c(subDT$Sub_metering_1,subDT$Sub_metering_2,subDT$Sub_metering_3) 24 | plot(x,y, type="n", ylab="Energy sub metering",xlab="") 25 | points(x[g == "Sub_metering_1"],y[g == "Sub_metering_1"],col="BLACK",type="l") 26 | points(x[g == "Sub_metering_2"],y[g == "Sub_metering_2"],col="RED",type="l") 27 | points(x[g == "Sub_metering_3"],y[g == "Sub_metering_3"],col="BLUE",type="l") 28 | legend("topright",legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"),col=c("BLACK","RED","BLUE"),lty=1,bty="n") 29 | 30 | # plot4d 31 | with(subDT, plot(Time,Global_reactive_power, type="l", xlab="datetime")) 32 | dev.off() -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | ## Introduction 2 | 3 | This assignment uses data from 4 | the UC Irvine Machine 5 | Learning Repository, a popular repository for machine learning 6 | datasets. In particular, we will be using the "Individual household 7 | electric power consumption Data Set" which I have made available on 8 | the course web site: 9 | 10 | 11 | * Dataset: Electric power consumption [20Mb] 12 | 13 | * Description: Measurements of electric power consumption in 14 | one household with a one-minute sampling rate over a period of almost 15 | 4 years. Different electrical quantities and some sub-metering values 16 | are available. 17 | 18 | 19 | The following descriptions of the 9 variables in the dataset are taken 20 | from 21 | the UCI 22 | web site: 23 | 24 |
    25 |
  1. Date: Date in format dd/mm/yyyy
    2. 26 |
  2. Time: time in format hh:mm:ss
    3. 27 |
  3. Global_active_power: household global minute-averaged active power (in kilowatt)
    4. 28 |
  4. Global_reactive_power: household global minute-averaged reactive power (in kilowatt)
    5. 29 |
  5. Voltage: minute-averaged voltage (in volt)
    6. 30 |
  6. Global_intensity: household global minute-averaged current intensity (in ampere)
    7. 31 |
  7. Sub_metering_1: energy sub-metering No. 1 (in watt-hour of active energy). It corresponds to the kitchen, containing mainly a dishwasher, an oven and a microwave (hot plates are not electric but gas powered).
    8. 32 |
  8. Sub_metering_2: energy sub-metering No. 2 (in watt-hour of active energy). It corresponds to the laundry room, containing a washing-machine, a tumble-drier, a refrigerator and a light.
    9. 33 |
  9. Sub_metering_3: energy sub-metering No. 3 (in watt-hour of active energy). It corresponds to an electric water-heater and an air-conditioner.
    10. 34 |
35 | 36 | ## Loading the data 37 | 38 | 39 | 40 | 41 | 42 | When loading the dataset into R, please consider the following: 43 | 44 | * The dataset has 2,075,259 rows and 9 columns. First 45 | calculate a rough estimate of how much memory the dataset will require 46 | in memory before reading into R. Make sure your computer has enough 47 | memory (most modern computers should be fine). 48 | 49 | * We will only be using data from the dates 2007-02-01 and 50 | 2007-02-02. One alternative is to read the data from just those dates 51 | rather than reading in the entire dataset and subsetting to those 52 | dates. 53 | 54 | * You may find it useful to convert the Date and Time variables to 55 | Date/Time classes in R using the `strptime()` and `as.Date()` 56 | functions. 57 | 58 | * Note that in this dataset missing values are coded as `?`. 59 | 60 | 61 | ## Making Plots 62 | 63 | Our overall goal here is simply to examine how household energy usage 64 | varies over a 2-day period in February, 2007. Your task is to 65 | reconstruct the following plots below, all of which were constructed 66 | using the base plotting system. 67 | 68 | First you will need to fork and clone the following GitHub repository: 69 | [https://github.com/rdpeng/ExData_Plotting1](https://github.com/rdpeng/ExData_Plotting1) 70 | 71 | 72 | For each plot you should 73 | 74 | * Construct the plot and save it to a PNG file with a width of 480 75 | pixels and a height of 480 pixels. 76 | 77 | * Name each of the plot files as `plot1.png`, `plot2.png`, etc. 78 | 79 | * Create a separate R code file (`plot1.R`, `plot2.R`, etc.) that 80 | constructs the corresponding plot, i.e. code in `plot1.R` constructs 81 | the `plot1.png` plot. Your code file **should include code for reading 82 | the data** so that the plot can be fully reproduced. You should also 83 | include the code that creates the PNG file. 84 | 85 | * Add the PNG file and R code file to your git repository 86 | 87 | When you are finished with the assignment, push your git repository to 88 | GitHub so that the GitHub version of your repository is up to 89 | date. There should be four PNG files and four R code files. 90 | 91 | 92 | The four plots that you will need to construct are shown below. 93 | 94 | 95 | ### Plot 1 96 | 97 | 98 | ![plot of chunk unnamed-chunk-2](figure/unnamed-chunk-2.png) 99 | 100 | 101 | ### Plot 2 102 | 103 | ![plot of chunk unnamed-chunk-3](figure/unnamed-chunk-3.png) 104 | 105 | 106 | ### Plot 3 107 | 108 | ![plot of chunk unnamed-chunk-4](figure/unnamed-chunk-4.png) 109 | 110 | 111 | ### Plot 4 112 | 113 | ![plot of chunk unnamed-chunk-5](figure/unnamed-chunk-5.png) 114 | 115 | --------------------------------------------------------------------------------