FilesExpand file tree

 master

/

plot3.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

26 lines (25 loc) · 1.43 KB

 master

/

plot3.R

Top

File metadata and controls

• Code
• Blame

26 lines (25 loc) · 1.43 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

plot3 <- function ( ) {

## Set to the correct working directory

setwd("~/Desktop/Exploratory Data Analysis/Project 1")

## Read household_power_consumption.txt data

powerData <- read.csv("household_power_consumption.txt",header=TRUE,sep=";",na.strings = "?", colClasses = "character")

## Clean up data, by fixing data and time format and subsetting only the dates to analyze

powerData$Date <- as.Date(powerData$Date, format="%d/%m/%Y")

powerData$Time <- as.POSIXct(powerData$Time,format="%H:%M:%S")

smallPowerData <- subset(powerData,subset=(Date < "2007-02-03"))

smallPowerData <- subset(smallPowerData, subset=(Date > "2007-01-31"))

## Energy submetering on the y and Thur, Fri, Sat on x, with submetering_1

## submetering_2 and submetering_3 separately plotted and in a legend

plot(smallPowerData$Sub_metering_1,type="l",xlab = "",ylab = "Energy sub metering",axes = FALSE)

lines(smallPowerData$Sub_metering_2,col="red")

lines(smallPowerData$Sub_metering_3,col="blue)

axis(side = 1, at = c(0,1500,2881), c("Thu", "Fri", "Sat"))

axis(side = 2, at = c(0,10,20,30), c(0,10,20,30))

## Legend

## Sub_metering_1, Sub_metering_2 (red), Sub_metering_3 (blue)

legend("topright", col = c("black","red","blue"), legend=c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), pch=1)

## Copy plot to png

dev.copy(png, file = "plot3.png")

## Close connection

dev.off()

}