Skip to content

Instantly share code, notes, and snippets.

@tallaln
Created May 12, 2014 13:39
Show Gist options
  • Save tallaln/08cdfc71767d2dc613cf to your computer and use it in GitHub Desktop.
Save tallaln/08cdfc71767d2dc613cf to your computer and use it in GitHub Desktop.
household_power_consumption <- read.csv("D:/Tallal/Dropbox/Thesis/Material for R/working directory/household_power_consumption.txt", sep=";")
hpc <- read.table(file = "household_power_consumption.txt", sep = ";", skip = 66637, nrows = 2880)
hpc$V1<-as.Date(as.character(hpc$V1),"%d/%m/%Y")
hpc$V2<-strptime(hpc$V2,"%T")
rm (household_power_consumption)
# installs the package reshape since all the vaiable had been reassigned names
#such as v1, v2, V3,etc
#install.packages("reshape")
# rename interactively
#fix(hpc) # results are saved on close
# rename programmatically,
library(reshape)
# you can re-enter all the variable names in order
# changing the ones you need to change.the limitation
# is that you need to enter all of them!
names(hpc) <- c("Date","Time","Global_active_power", "Global_reactive_power",
"Voltage","Global_intensity","Sub_metering_1","Sub_metering_2",
"Sub_metering_3")
View (hpc)
# print plot number 1
attach (hpc)
# prints plot number 2
par (mar = c(4,4,4,2))
plot ( Time, Global_active_power )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment