forked from rdpeng/ExData_Plotting1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
plot1.R
26 lines (21 loc) · 1.02 KB
/
plot1.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
##################################################################################################
# Project 1: Exploratory Data Analysis - Plotting (Plot1)
#
#
##################################################################################################
#### Load all necessary libraries
##################################################################################################
# Step 0: Necessary evil. Setup environment, download data files etc.
##################################################################################################
## Setup environment. Using local directory to make code portable different OS
setwd("./")
#### Source common functions
source("loadHPCData.R")
hpcData <- loadHPCData()
png("plot1.png", width = 480, height = 480, units = "px", bg = "transparent")
message("Global Active Power Histogram")
hist(hpcData$Global_active_power,
col="red",main="Global Active Power",
xlab = "Global Active Power (kilowatts)", ylab="Frequency")
dev.off()
print("Plotting 1st Histogram")