ExData_Plotting1/load_data.R at master · daviz/ExData_Plotting1 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "power_consumption.zip", method="curl")
consumption <- read.csv(unzip("power_consumption.zip"), header=T, sep=";")

consumption$Date <- as.Date(consumption$Date, format="%d/%m/%Y")
subconsumption <- subset(consumption, (Date >= "2007-02-01") & (Date <= "2007-02-02"))

subconsumption$Global_active_power <- as.numeric(as.character(subconsumption$Global_active_power))
subconsumption$Sub_metering_1 <- as.numeric(as.character(subconsumption$Sub_metering_1))
subconsumption$Sub_metering_2 <- as.numeric(as.character(subconsumption$Sub_metering_2))
subconsumption$Sub_metering_3 <- as.numeric(as.character(subconsumption$Sub_metering_3))
subconsumption$Global_reactive_power <- as.numeric(as.character(subconsumption$Global_reactive_power))
subconsumption$Voltage <- as.numeric(as.character(subconsumption$Voltage))

subconsumption$DateTime <- strptime(paste(subconsumption$Date, subconsumption$Time), format="%Y-%m-%d %H:%M:%S")