plot1.R

#reads the data to dataframe
power_consumption_data <- read.table(file = "household_power_consumption.txt", header = TRUE, sep = ";", na.strings = "?")

#convert date and time columns
power_consumption_data$Date_Time <- with(power_consumption_data, paste(Date, Time))
power_consumption_data$Date_Time <- strptime(power_consumption_data$Date_Time, format = "%d/%m/%Y %T")


selected_date_string <- c("2007-02-01", "2007-02-02")


selected_power_consumption <- subset(power_consumption_data, strftime(Date_Time, format = "%Y-%m-%d") %in% selected_date_string)
selected_power_consumption <- droplevels(selected_power_consumption)

#plot 1
png(filename = "plot1.png", width = 480, height = 480)
with(selected_power_consumption, hist(Global_active_power, col = "red", xlab = "Global Active Power (kilowatts)", main = "Global Active Power"))
dev.off()