Cree un mapa interactivo con leaflet que muestre el Parque Nacional Corcovado, el Parque Nacional Piedras Blancas y la Reserva Forestal Golfo Dulce (pista: pueden encontrar las coordenadas usando google maps). Para cada sitio añada un marcador usando la función de leaftlet addAwesomeMarkers. El mapa debe ser similar a este:
Parque Nacional Corcovado
Coordenadas: 8.563720182253586, -83.56790005788307
Parque Nacional Piedras Blancas
Coordenadas: 8.713774887511931, -83.27207018617494
Parque Nacional Golfo Dulce
Coordenadas: 8.758330236094574, -83.48569130395595
sitios <- data.frame(Sitio = c("Parque Nacional Corcovado", # Base de datos de tres sitios.
"Parque Nacional Piedras Blancas",
"Parque Nacional Golfo Dulce"),
Lat = c(8.563720182253586,
8.713774887511931,
8.758330236094574), # columna de latitudes
Long = c(-83.56790005788307,
-83.27207018617494,
-83.48569130395595), # columna de longitudes
stringsAsFactors = TRUE) # Sitios como factores.
datatable(sitios)mapa <- leaflet() # Capa 1. Asignar objeto leaflet
mapa <- addTiles(map = mapa) # Capa 2. Asignar capa tipo mapa ("map")
mapa <-
setView( # Capa 3. Asignar punto central y aumento del mapa.
map = mapa, # Objeto de mapa seleccionado
lat = 8.563720182253586, # Coordenadas
lng = -83.56790005788307,
zoom = 10.45 # Aumento de mapa
)
addAwesomeMarkers( # Marcadores especiales
map = mapa, # Objeto de mapa seleccionado
lat = sitios$Lat, # Asignación de coordenadas a partir de base de datos "sitios"
lng = sitios$Long,
popup = sitios$Sitio
)Utilice el paquete DT para generar un cuadro (tabla) de los datos iris.
Calcule la correlación entre largo y ancho de pétalo para los datos iris.Incruste el resultado de la correlación en una línea de texto.
El coeficiente de correlación de Pearson entre largo de pétalo y ancho de pétalo es de 0.96