├── 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 ├── plot1.R ├── plot2.R ├── plot3.R ├── plot4.R └── README.md /plot1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/plot1.png -------------------------------------------------------------------------------- /plot2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/plot2.png -------------------------------------------------------------------------------- /plot3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/plot3.png -------------------------------------------------------------------------------- /plot4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/plot4.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/figure/unnamed-chunk-2.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/figure/unnamed-chunk-3.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/figure/unnamed-chunk-4.png -------------------------------------------------------------------------------- /figure/unnamed-chunk-5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/caocscar/ExData_Plotting1/master/figure/unnamed-chunk-5.png -------------------------------------------------------------------------------- /plot1.R: -------------------------------------------------------------------------------- 1 | library(data.table) 2 | data <- fread("household_power_consumption.txt", na.strings="?") 3 | df <- with(data, data[(Date == "1/2/2007" | Date == "2/2/2007")]) 4 | df$datetime <- as.POSIXct(paste(df$Date, df$Time), format="%d/%m/%Y %H:%M:%S") 5 | # Plot 1 6 | hist(df$Global_active_power, col="red", main="Global Active Power", xlab="Global Active Power (kilowatts)") 7 | dev.copy(png, file = "plot1.png", width =480, height=480) 8 | dev.off() -------------------------------------------------------------------------------- /plot2.R: -------------------------------------------------------------------------------- 1 | library(data.table) 2 | data <- fread("household_power_consumption.txt", na.strings="?") 3 | df <- with(data, data[(Date == "1/2/2007" | Date == "2/2/2007")]) 4 | df$datetime <- as.POSIXct(paste(df$Date, df$Time), format="%d/%m/%Y %H:%M:%S") 5 | # Plot 2 6 | plot(df$datetime, df$Global_active_power, type="l", lwd=2, xlab="", ylab="Global Active Power (kilowatts)") 7 | dev.copy(png, file = "plot2.png", width =480, height=480) 8 | dev.off() -------------------------------------------------------------------------------- /plot3.R: -------------------------------------------------------------------------------- 1 | library(data.table) 2 | data <- fread("household_power_consumption.txt", na.strings="?") 3 | df <- with(data, data[(Date == "1/2/2007" | Date == "2/2/2007")]) 4 | df$datetime <- as.POSIXct(paste(df$Date, df$Time), format="%d/%m/%Y %H:%M:%S") 5 | # Plot 3 6 | plot(df$datetime,df$Sub_metering_1, type="n", xlab="", ylab="Energy sub metering") 7 | lines(df$datetime, df$Sub_metering_1, col="red") 8 | lines(df$datetime, df$Sub_metering_2, col="green") 9 | lines(df$datetime, df$Sub_metering_3, col="blue") 10 | legend("topright",legend=colnames(df)[7:9], 11 | lty=1, col=c("red","green","blue"), bty="n", inset=c(0.15,0), y.intersp=2) 12 | dev.copy(png, file = "plot3.png", width =480, height=480) 13 | dev.off() -------------------------------------------------------------------------------- /plot4.R: -------------------------------------------------------------------------------- 1 | library(data.table) 2 | data <- fread("household_power_consumption.txt", na.strings="?") 3 | df <- with(data, data[(Date == "1/2/2007" | Date == "2/2/2007")]) 4 | df$datetime <- as.POSIXct(paste(df$Date, df$Time), format="%d/%m/%Y %H:%M:%S") 5 | # Plot 4 6 | par(mfcol = c(2,2) ) 7 | par(mar = c(5,4,1,2)) 8 | plot(df$datetime, df$Global_active_power, type="l", lwd=2, xlab="", ylab="Global Active Power (kilowatts)") 9 | plot(df$datetime,df$Sub_metering_1, type="n", xlab="", ylab="Energy sub metering") 10 | lines(df$datetime, df$Sub_metering_1, col="red") 11 | lines(df$datetime, df$Sub_metering_2, col="green") 12 | lines(df$datetime, df$Sub_metering_3, col="blue") 13 | legend("topright",legend=colnames(df)[7:9], 14 | lty=1, col=c("red","green","blue"), bty="n", cex=0.9, inset=c(0.3,0), y.intersp=2) 15 | plot(df$datetime, df$Voltage, col="orange", type="l", lwd=2, xlab="datetime", ylab="Voltage") 16 | plot(df$datetime, df$Global_reactive_power, col="limegreen", type="l", lwd=2, xlab="datetime", ylab="Global Reactive Power") 17 | dev.copy(png, file = "plot4.png", width =480, height=480) 18 | 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 | --------------------------------------------------------------------------------