# Create a boxplot of the data in the windspeed column of the hour data
boxplot(hour$windspeed)

# Same boxplot as above, but horizontal with title and x axis label
boxplot(hour$windspeed, horizontal = TRUE, 
        main = "Windspeed in Washington DC",
        xlab = "Windspeed (km/h)")

# Histogram of the humidity column (named hum)
hist(hour$hum)

# Horizontal boxplot of the humidity column (named hum)
boxplot(hour$hum, horizontal = TRUE, xlab = "Humidity", main = "Humidity in Washington DC")

# Horizontal boxplot of the # of bikes being ridden (cnt column)
boxplot(hour$cnt, horizontal = TRUE, xlab = "# of bikes out", main = "Washington DC Bikeshare")

# Boxplot of the bike rider counts (cnt) in each season
boxplot(cnt~season, data = hour)

# Same as previous plot but with title and axis labels
boxplot(cnt~season, data = hour, xlab = "Season", ylab = "# of riders", main = "Bikeshare in Washington DC")

# Histogram of the built in dataset faithful
# - contains data on length of eruptions (in min) of Old Faithful geyser in Yellowstone
# - and time between eruptions (in min)
# Example of bimodal (two peaks) data
hist(faithful$waiting, xlab = "Time between eruptions (min)", main = "Time between eruptions of Old Faithful")