plot1.R

library(tidyverse)
library(here)
library(lubridate)
library(janitor)

# Download and unzip file
path <- here("hpc.zip")
download.file(url = "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
              , destfile = path)
unzip(zipfile = "hpc.zip")

# Readr already read Date and Time columns as Date/Time classes
hpc <- read_delim("household_power_consumption.txt", delim = ";")

#Cleaning and subsetting dataset
hpc <- clean_names(hpc)
hpc2 <- hpc %>%
  filter(date == '1/2/2007' | date == '2/2/2007')

# Creating histogram (Plot 1)
hist(hpc2$global_active_power,
     col="red",
     main="Golbal Active Power",
     xlab = "Global Active Power(Kilowatts)")

# Saving as PNG file
dev.copy(png, file="plot1.png", height=480, width=480)
dev.off()