forked from rdpeng/ExData_Plotting1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
plot1.R
29 lines (25 loc) · 1.03 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
27
28
29
plot1 <- function() {
filename <- "household_power_consumption.zip"
## Download and unzip the dataset:
if (!file.exists(filename)){
fileURL <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
download.file(fileURL, filename, method="curl")
}
if (!file.exists("household_power_consumption.txt")) {
unzip(filename)
}
mydata <- read.table("household_power_consumption.txt", sep=";", header=T)
head(mydata)
mydata$Date <- as.Date(mydata$Date, "%d/%m/%Y");
relData <- subset(mydata, Date >= as.Date("2007-02-01") & Date <= as.Date("2007-02-02"))
relData$Global_active_power <- as.integer(relData$Global_active_power)
relData$datetime <- as.POSIXct(paste(relData$Date, relData$Time), format="%Y-%m-%d %H:%M:%S")
plotGraph(relData);
}
plotGraph <- function(relData) {
png('rplot1.jpg')
hist(relData$Global_active_power, col = "red",
main = "Global Active Power",
xlab = "Global Active Power (kilowatts)", ylab = "Frequency")
dev.off()
}