encuentro 4

Instalamos paquetes

install.packages("leaflet")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4'
## (as 'lib' is unspecified)

Cargar libreria necesaria

library(leaflet)

Ubicación de la FCA

leaflet() %>%
  addProviderTiles(providers$Esri.WorldImagery) %>%
  setView(lng = -65.784220, lat = -28.460072, zoom = 17) 

leaflet() %>%
  addProviderTiles(providers$Esri.WorldImagery)%>%
  addMarkers(lng = -65.784220,  lat = -28.460072, group = "Marcadores") %>%
  addLayersControl( baseGroups = c("Mapa Base"),
    overlayGroups = c("Marcadores")
  )

##Dibujar formas (polígonos y círculos)

Círculos:

##library(leaflet)

leaflet() %>%
  addProviderTiles(providers$Esri.WorldImagery)%>%
  #addTiles() %>%
  addCircles(
    lng = -65.784220, 
    lat = -28.460072, 
    radius = 100 # Asegúrate de incluir una coma después de cada argumento
    
  )

POLIGONOS

leaflet() %>%
##  addProviderTiles(providers$Esri.WorldImagery)%>%
  addTiles() %>%
  addPolygons(lng = c(-65.784568, -65.781900, -65.781746, -65.784529), lat = c(-28.457053,-28.457016, -28.460517, -28.460676), color = "blue") %>% 
  addMarkers(lng = -65.784220, lat = -28.460072)