forked from rdpeng/ExData_Plotting1
-
Notifications
You must be signed in to change notification settings - Fork 0
/
plot2.R
33 lines (18 loc) · 864 Bytes
/
plot2.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
30
31
32
33
# Assignment - 1
# Reads the entire dataset
HOUSEHOLD_data <- read.table("D:\\exploratory_R\\week 1\\household_power_consumption.txt", header = TRUE, sep = ';', na.strings = "?", check.names = FALSE, stringsAsFactors = FALSE, comment.char="", quote='\"')
str(HOUSEHOLD_data)
HOUSEHOLD_data$Date <- as.Date(HOUSEHOLD_data$Date, format="%d/%m/%Y")
# Subseting the required data
data <- subset(HOUSEHOLD_data, subset = (Date >= "2007-02-01" & Date <= "2007-02-02"))
str(data)
# Converts dates
date_time <- paste(as.Date(data$Date), data$Time)
data$Datetime <- as.POSIXct(date_time)
# Ploting data
plot(data$Global_active_power~data$Datetime, type = "l", ylab = "Global Active Power (kilowatts)", xlab = "")
## Saving data to file
dev.copy(png, file = "plot2.png", height = 480, width = 480)
dev.off()
dev.off()
dev.off()