# We repeated some of the code from Day 1, which you can find at
# http://comet.lehman.cuny.edu/owen/teaching/mat327/code_from_class_day1.R

# Start of new code from Day 2
# Import the taxi data which is all yellow taxi trips from Jan. 30, 2019 starting between 4:15pm and 5:55pm

library(readr)
taxi <- read_csv("jan30_2019_yellow_taxi.csv")

# Display the data in the passenger_count column ()
taxi$passenger_count

# Make a histogram of the passenger counts
hist(taxi$passenger_count)

# For discrete data, sometimes a bar chart or bar plot looks nicer.
# Make a bar plot of the passenger counts
barplot(table(taxi$passenger_count))

# Make a histogram of the data in the trip distance column.  This data is continuous and in miles.
hist(taxi$trip_distance)