Plot 1.R

#Read and organise data
	consumption <- read.csv("C:/Users/Carlos/OneDrive/Coursera/Johns Hopkins/R data/exploratory analysis/household_power_consumption.txt", sep=";")
	consumption$Date <- as.Date(consumption$Date, format = "%d/%m/%Y")
	thursday <- "01/02/2007"
	thursday <- as.Date(thursday, format = "%d/%m/%Y")
	friday <- "02/02/2007"
	friday <- as.Date(friday, format = "%d/%m/%Y")
	consumption <- subset(consumption, Date >= thursday & Date <= friday)
	consumption$Global_active_power <- as.numeric(consumption$Global_active_power)
	consumption$Global_reactive_power <- as.numeric(consumption$Global_reactive_power)
	Date_Time <- paste(consumption$Date,consumption$Time, sep = ";")
	Date_Time <- strptime(Date_Time, format = "%Y-%m-%d;%H:%M:%S")
	consumption <- cbind(Date_Time, consumption)
	consumption$Global_active_power <- consumption$Global_active_power/500
	consumption$Global_reactive_power <- consumption$Global_reactive_power/500

#Plot 1
png("plot1.png")
	hist(consumption$Global_active_power, col = "red", main = "Global Active Power", xlab = "Global Active Power (kilowatts)")
dev.off()