# Open the hour.csv bikeshare data and store in the variable hour
hour <- read_csv("hour.csv")

# Scatterplot of temperature (x axis) vx. # of bikers (y axis)
plot(cnt ~ temp, data = hour)

# Another way to make the previous scatterplot
plot(hour$temp,hour$cnt)

# The same scatterplot again, but with a title and axis labels.
plot(hour$temp,hour$cnt, xlab = "Temperature (C)", ylab = "Number of bikers", main = "Bikeshare data")

# Scatterplot of the real-feel temperature (x axis) vs. the # of bikers (y axis)
plot(cnt ~ atemp, data = hour)

# Correlation of the number of bikers and temperature.
cor(hour$cnt, hour$temp)

# Scatterplot of the temperature vs the humidity
plot(hour$temp, hour$hum)