plot1.r

#Plot1
#Exploratory Data Analysis
#Joseph Chatman

#retrieve data
data.source <- read.table("household_power_consumption.txt", comment.char= "", sep= ";", na.strings= "?", skip= 66600, n= 3050)
#convert data into a data frame
data <- data.frame(data.source)
#subset for dates required
segment <- subset(data, as.Date(V1) == '01/02/2007' | as.Date(V1) == '02/02/2007')
#perform date and time conversions
date <- as.character(segment$V1)
time <- as.character(segment$V2)
date.time <- paste(date, time)
date.time <- strptime(date.time, "%d/ %m/ %Y %H: %M: %S")

#create the hisogram
png(file = 'plot1.png')#open PNG device and create plot1.PNG
hist(segment$V3,xlab= "Global Active Power (kilowatts)", col ="red", main="Global Active Power")
dev.off()#close PNG device in my working directory