Map with Leaflet Assignment #5

Introduction

This interactive map is showing data on New York taxi fare in the month of March 2015 in cases where the total amount charged was over 40 dollars. The data was downloaded from https://www1.nyc.gov/site/tlc/about/tlc-trip-record-data.page

taxi_data <- read.csv("C:\\Users\\gonza\\OneDrive\\Classes again\\Spring 2022\\STA 4233\\Notes\\05 Communicating Data in R\\taxi_zones\\yellow_tripdata_2015-03.csv")
taxi_data_2 <- subset(taxi_data, total_amount > 40)

taxi <- leaflet(taxi_data_2) %>%
  addTiles() %>%
  setView(-73.9, 40.75, zoom=11)%>%
addMarkers(popup=as.character(taxi_data_2$total_amount), lng = ~pickup_longitude, lat = ~pickup_latitude, clusterOptions=markerClusterOptions())

  taxi