Tarea 4

1. 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:

#Cargo paquetes:

source(
  paste0(
    "https://raw.githubusercontent.com/maRce10/",
    "sketchy/main/R/load_packages.R"
  )
)

load_packages(
  packages = c(
    "leaflet",
    "DT"
  )
)

## Loading required package: leaflet

## Loading required package: DT

Creación de mapa interactivo:

#Mapa inicial:
map1 <- leaflet() %>%
  setView(lng = -83.3713117809, lat = 8.64161460758, zoom = 10.3)  # Coordenadas iniciales centradas

map1 <- addTiles(map = map1)
#Marcadores, utilizando la función addawesomemarkers
map1 <- map1 %>%
  addAwesomeMarkers(
    lng = -83.5708994898, lat = 8.54095624698,  # Coordenadas del Parque Nacional Corcovado
    icon = awesomeIcons(
      icon = 'flag',
      markerColor = 'cadetblue',
      library = 'ion',
      text = NULL
    ) 
  ) %>%
  addAwesomeMarkers(
    lng = -83.2703419173, lat = 8.73131943980,  # Coordenadas del Parque Nacional Piedras Blancas
    icon = awesomeIcons(
      icon = 'flag',
      markerColor = 'cadetblue',
      library = 'ion',
      text = NULL
    )
  ) %>%
  addAwesomeMarkers(
    lng = -83.4856913053, lat = 8.75833023609,  # Coordenadas de la Reserva Forestal Golfo Dulce
    icon = awesomeIcons(
      icon = 'flag',
      markerColor = 'cadetblue',
      library = 'ion',
      text = NULL
    )
  )

map1

2. Utilice el paquete DT para generar un cuadro (tabla) de los datos iris. La tabla debe verse igual a esta:

datatable(iris)

El siguiente código calcula la correlación entre largo y ancho de pétalo para los datos iris.

cor(iris$Petal.Length, iris$Petal.Width)

## [1] 0.9628654

3. Incruste el resultado de la correlación en una línea de texto (fuera de un bloque de código). Debe verse así (recuerde redondear):

#Código sin incrustar:

El coeficiente de correlación de Pearson entre largo de pétalo y ancho de pétalo es de round(cor(iris$Petal.Length, iris$Petal.Width), 2)

#Código incrustado:

El coeficiente de correlación de Pearson entre largo de pétalo y ancho de pétalo es de: 0.96

4. Publique el reporte en Rpubs y añada el enlace en el reporte (use un enlace en el texto).

Este reporte dinámico se puede visualizar en la plataforma Rpub