Map Assignment

lats<-c(32.780412,33.222574,32.606493,32.817782,32.799116,33.217615,33.144488,33.34855,32.754085,32.615858,32.636263,33.347563,32.718626,33.1984,32.579209,32.736665,33.040769,32.58403,32.723449,32.734442,33.281995,33.201128,33.197045,32.608159,33.128951,32.60518,33.02633,33.164159,33.130051,33.07633,32.567716,32.660505,32.702239,33.180176,33.280113,33.150263,33.222575,33.274322)
lngs<-c(-117.096479,-117.219306,-117.050592,-116.980631,-116.947634,-117.318857,-117.091432,-117.241443,-117.036452,-116.954433,-117.059187,-117.236808,-117.162659,-117.254956,-117.121718,-116.972077,-116.863939,-117.065858,-117.016751,-116.492781,-117.025154,-117.330321,-117.374122,-116.974632,-117.040513,-117.07374,-116.869018,-117.24661,-117.205152,-117.056553,-117.083434,-117.091903,-117.064525,-117.158718,-117.025699,-117.032198,-117.240895,-116.644161)
names<-c("Academy of Arts and Sciences","Alta Vista High School","Castle Park High School","Chaparral High School","El Cajon Valley High School","El Camino High School","Escondido High School","Fallbrook High School","Helix Charter High School","High Tech High Chula Vista","Hilltop High School","Ivy High School","King-Chavez Community High School","Maj Gen Murray High School","Mar Vista High School","Monte Vista High School","Montecito High School","Montgomery High School","Mount Miguel High School","Mountain Empire High School","Oak Glen High School","Ocean Shores High School","Oceanside High School","Olympian High School","Orange Glen High School","Palomar High School","Ramona High School","Rancho Buena Vista High School","San Marcos High School","San Pasqual High School","Southwest High School","Sweetwater High School","The OFarrell Charter School","Twin Oaks High School","Valley Center High School","Valley High School","Vista High School","Warner High School")

library(leaflet)
map<-leaflet()%>%
  addTiles()%>%
  addMarkers(lat=lats,lng=lngs,popup=names,clusterOptions=markerClusterOptions())
map