plot1.R

skip <- 66637
end <- 69517

filename <- "household_power_consumption.txt"
mycolnames <- c("Date","Time","Global_active_power","Global_reactive_power","Voltage","Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3")
df <- read.table(filename, sep = ";", na.strings = "?", skip = skip, nrows = end-skip)
colnames(df) <- mycolnames

png(file = "plot1.png")
hist(df$Global_active_power, xlab = "Global Active Power (kilowatts)", 
     main = "Global Active Power", col = "red")
dev.off()