FilesExpand file tree

 master

/

plot2.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

34 lines (25 loc) · 985 Bytes

 master

/

plot2.R

Copy path

Top

File metadata and controls

• Code
• Blame

34 lines (25 loc) · 985 Bytes

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

27

28

29

30

31

32

33

34

# Assignment for week 1

# created by Andreas Eßbaumer

# on 08.Nov 2015

#Plot2:

#read the data:

data <- read.table("household_power_consumption.txt", sep=";", dec=".", header=T)

#convert the format of "Date" from factor to a date-classe

times <- as.character(data$Date)

times2 <- strptime(times, "%d/%m/%Y")

#subset the data for the relevant time frame

data$Date <- times2

dates_selected <- strptime(c("01/02/2007","02/02/2007"), "%d/%m/%Y")

#the subset is called "tabel"

tabel <- data[data$Date %in% dates_selected,]

#include the time to the timestamp

times3 <- as.POSIXct(paste(tabel$Date, as.character(tabel$Time)))

tabel$Date <- times3

#because i´m from germany i have to use the following command to get the english names for weekdays for dates

Sys.setlocale("LC_TIME", "C")

#open device

png(filename = "plot2.png")

#plot

plot(as.numeric(as.character(Global_active_power))~Date, tabel, type="l", ylab="Global Active Power (kilowatts)", xlab="")

#close the device

dev.off()