Assigment 1 #952
Description
household_power_consumption= read.table ("household_power_consumption.txt",
header= T, sep= ";", dec= ".")
library("dplyr")
household_power_consumption$Date= as.Date (household_power_consumption$Date,
format= "%d/%m/%Y")
household_power_consumption= subset (household_power_consumption,
Date >= "2007-02-01" & Date <= "2007-02-02" )
household_power_consumption [ , c(3:9)]= apply (household_power_consumption [ , c(3:9)],
2, function (x) as.numeric (x))
household_power_consumption$DateTime=as.POSIXct(paste(household_power_consumption$Date,household_power_consumption$Time))
#101
hist (household_power_consumption$Global_active_power,
col= "red", main= "Global Active Power",
xlab = "Global Active Power (kilowatts)")
dev.copy(png,file="plot1.png")
dev.off()
plot (household_power_consumption$DateTime,
household_power_consumption$Global_active_power,
type= "l", ylab= "Global Active Power (kilowatts)", xlab= "")
#66
plot (household_power_consumption$DateTime,
household_power_consumption$Sub_metering_1, xlab= "", ylab="Energy sub metering")
lines (household_power_consumption$DateTime,
household_power_consumption$Sub_metering_2, col="red")
lines (household_power_consumption$DateTime,
household_power_consumption$Sub_metering_3, col="blue")
legend ("topright", col= c("black", "red", "blue"),
legend= c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"),
lwd = 2, lty=1, cex= 0.75)
dev.copy(png,file="plot3.png",width=480, height=480)
dev.off()
#115
par (mfrow= c(2,2), mar= (c(4, 4, 2, 1)))
plot (household_power_consumption$DateTime,
household_power_consumption$Global_active_power,
type= "l", ylab= "Global Active Power (kilowatts)", xlab= "")
plot (household_power_consumption$DateTime,
household_power_consumption$Voltage,
type= "l", ylab= "Voltage", xlab= "Daytime")
plot (household_power_consumption$DateTime,
household_power_consumption$Sub_metering_1, xlab= "", ylab="Energy sub metering")
lines (household_power_consumption$DateTime,
household_power_consumption$Sub_metering_2, col="red")
lines (household_power_consumption$DateTime,
household_power_consumption$Sub_metering_3, col="blue")
legend ("topright", col= c("black", "red", "blue"),
legend= c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"),
lwd = 2, lty=1, cex= 0.5)
plot (household_power_consumption$DateTime,
household_power_consumption$Global_reactive_power,
type= "l", ylab= "Global_reactive_power", xlab= "Daytime")
dev.copy(png,file="plot4.png")
dev.off()
