Bike Theft Map

Load libraries

library(leaflet) library(sp)

Load your CSV

biketheft <- read.csv(“biketheft.csv”)

Ensure coordinates are numeric

biketheft\(Longitude <- as.numeric(biketheft\)Longitude) biketheft\(Latitude <- as.numeric(biketheft\)Latitude)

Load libraries

library(leaflet) library(sp)

Load your CSV

biketheft <- read.csv(“biketheft.csv”)

Ensure coordinates are numeric

biketheft\(Longitude <- as.numeric(biketheft\)Longitude) biketheft\(Latitude <- as.numeric(biketheft\)Latitude)