Skip to content

Commit 33e7076

Browse files
jamieonjamieon
committed
R scripts and PNG files uploaded
1 parent 73fe5c6 commit 33e7076

File tree

8 files changed

+137
-0
lines changed

8 files changed

+137
-0
lines changed

‎plot1.R‎

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
## TO DOWNLOAD, UNZIP, AND READ THE DATA (UNLESS NOT SAVED ALREADY):
2+
library(lubridate)
3+
if (!file.exists('power-data.rds')) {
4+
download.file(paste0('https://d396qusza40orc.cloudfront.net/',
5+
'exdata%2Fdata%2Fhousehold_power_consumption.zip'), destfile='raw-power-data.zip')
6+
unzip('raw-power-data.zip')
7+
power.df <- read.table('household_power_consumption.txt', header=TRUE,
8+
sep=';', na.strings='?',
9+
colClasses=c(rep('character', 2),
10+
rep('numeric', 7)))
11+
power.df$Date <- dmy(power.df$Date)
12+
power.df$Time <- hms(power.df$Time)
13+
start <- ymd('2007-02-01')
14+
end <- ymd('2007-02-02')
15+
power.df <- subset(power.df, year(Date) == 2007 &
16+
month(Date) == 2 &
17+
(day(Date) == 1 | day(Date) == 2))
18+
power.df$date.time <- power.df$Date + power.df$Time
19+
20+
saveRDS(power.df, file='power-data.rds')
21+
} else {
22+
power.df <- readRDS('power-data.rds')
23+
}
24+
25+
## TO MAKE PLOT 1:
26+
png(filename='plot1.png')
27+
hist(power.df$Global_active_power, main='Global Active Power',
28+
xlab='Global Active Power (kilowatts)', col='red')
29+
dev.off()

‎plot1.png‎

3.65 KB
Loading

‎plot2.R‎

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
## TO DOWNLOAD, UNZIP, AND READ THE DATA (UNLESS NOT SAVED ALREADY):
2+
library(lubridate)
3+
if (!file.exists('power-data.rds')) {
4+
download.file(paste0('https://d396qusza40orc.cloudfront.net/',
5+
'exdata%2Fdata%2Fhousehold_power_consumption.zip'), destfile='raw-power-data.zip')
6+
unzip('raw-power-data.zip')
7+
power.df <- read.table('household_power_consumption.txt', header=TRUE,
8+
sep=';', na.strings='?',
9+
colClasses=c(rep('character', 2),
10+
rep('numeric', 7)))
11+
power.df$Date <- dmy(power.df$Date)
12+
power.df$Time <- hms(power.df$Time)
13+
start <- ymd('2007-02-01')
14+
end <- ymd('2007-02-02')
15+
power.df <- subset(power.df, year(Date) == 2007 &
16+
month(Date) == 2 &
17+
(day(Date) == 1 | day(Date) == 2))
18+
power.df$date.time <- power.df$Date + power.df$Time
19+
20+
saveRDS(power.df, file='power-data.rds')
21+
} else {
22+
power.df <- readRDS('power-data.rds')
23+
}
24+
25+
## TO MAKE PLOT 2:
26+
png(filename='plot2.png')
27+
plot(power.df$date.time, power.df$Global_active_power,
28+
ylab='Global Active Power (kilowatts)', xlab='', type='l')
29+
dev.off()

‎plot2.png‎

4.37 KB
Loading

‎plot3.R‎

Lines changed: 35 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,35 @@
1+
## TO DOWNLOAD, UNZIP, AND READ THE DATA (UNLESS NOT SAVED ALREADY):
2+
library(lubridate)
3+
if (!file.exists('power-data.rds')) {
4+
download.file(paste0('https://d396qusza40orc.cloudfront.net/',
5+
'exdata%2Fdata%2Fhousehold_power_consumption.zip'), destfile='raw-power-data.zip')
6+
unzip('raw-power-data.zip')
7+
power.df <- read.table('household_power_consumption.txt', header=TRUE,
8+
sep=';', na.strings='?',
9+
colClasses=c(rep('character', 2),
10+
rep('numeric', 7)))
11+
power.df$Date <- dmy(power.df$Date)
12+
power.df$Time <- hms(power.df$Time)
13+
start <- ymd('2007-02-01')
14+
end <- ymd('2007-02-02')
15+
power.df <- subset(power.df, year(Date) == 2007 &
16+
month(Date) == 2 &
17+
(day(Date) == 1 | day(Date) == 2))
18+
power.df$date.time <- power.df$Date + power.df$Time
19+
20+
saveRDS(power.df, file='power-data.rds')
21+
} else {
22+
power.df <- readRDS('power-data.rds')
23+
}
24+
25+
## TO MAKE PLOT 3:
26+
png(filename='plot3.png')
27+
plot(power.df$date.time, power.df$Sub_metering_1, type='l',
28+
xlab='', ylab='Energy sub metering')
29+
lines(power.df$date.time, power.df$Sub_metering_2, col='red')
30+
lines(power.df$date.time, power.df$Sub_metering_3, col='blue')
31+
legend('topright',
32+
legend=c('Sub_metering_1', 'Sub_metering_2', 'Sub_metering_3'),
33+
col=c('black', 'red', 'blue'),
34+
lty='solid')
35+
dev.off()

‎plot3.png‎

3.85 KB
Loading

‎plot4.R‎

Lines changed: 44 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
## TO DOWNLOAD, UNZIP, AND READ THE DATA (UNLESS NOT SAVED ALREADY):
2+
library(lubridate)
3+
if (!file.exists('power-data.rds')) {
4+
download.file(paste0('https://d396qusza40orc.cloudfront.net/',
5+
'exdata%2Fdata%2Fhousehold_power_consumption.zip'), destfile='raw-power-data.zip')
6+
unzip('raw-power-data.zip')
7+
power.df <- read.table('household_power_consumption.txt', header=TRUE,
8+
sep=';', na.strings='?',
9+
colClasses=c(rep('character', 2),
10+
rep('numeric', 7)))
11+
power.df$Date <- dmy(power.df$Date)
12+
power.df$Time <- hms(power.df$Time)
13+
start <- ymd('2007-02-01')
14+
end <- ymd('2007-02-02')
15+
power.df <- subset(power.df, year(Date) == 2007 &
16+
month(Date) == 2 &
17+
(day(Date) == 1 | day(Date) == 2))
18+
power.df$date.time <- power.df$Date + power.df$Time
19+
20+
saveRDS(power.df, file='power-data.rds')
21+
} else {
22+
power.df <- readRDS('power-data.rds')
23+
}
24+
25+
## TO MAKE PLOT 4:
26+
png(filename='plot4.png')
27+
par(mfrow=c(2,2))
28+
# TO MODIFY TOP:
29+
plot(power.df$date.time, power.df$Global_active_power,
30+
ylab='Global Active Power', xlab='', type='l')
31+
plot(power.df$date.time, power.df$Voltage,
32+
xlab='datetime', ylab='Voltage', type='l')
33+
# TO MODIFY BOTTOM:
34+
plot(power.df$date.time, power.df$Sub_metering_1, type='l',
35+
xlab='', ylab='Energy sub metering')
36+
lines(power.df$date.time, power.df$Sub_metering_2, col='red')
37+
lines(power.df$date.time, power.df$Sub_metering_3, col='blue')
38+
legend('topright',
39+
legend=c('Sub_metering_1', 'Sub_metering_2', 'Sub_metering_3'),
40+
col=c('black', 'red', 'blue'),
41+
lty='solid', bty='n')
42+
plot(power.df$date.time, power.df$Global_reactive_power,
43+
xlab='datetime', ylab='Global_reactive_power', type='l')
44+
dev.off()

‎plot4.png‎

6.91 KB
Loading

0 commit comments

Comments
 (0)