Aplicación del paquete leaflet

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:

# Cargar Paquete leaflet
library(leaflet)


# Argumentos para generar el mapa
ap_map_1 <- leaflet()

ap_map_1 <- addTiles(map = ap_map_1)

# agrego las cordenadas y parámetros generales 
ap_map_1 <-
    setView(
        map = ap_map_1,
        lat = 8.5840, 
        lng = -83.3826,
        zoom = 10
    )

# Agrego coordenadas (latitud y longitud) de los puntos que me interesan en el mapa
latitudes <- c(8.546, 8.715, 8.611) # orden: PN Corcovado, PN Piedras Blancas, RF Golfo Dulce
longitudes <- c(-83.571, -83.271, -83.497)

coordenadas_1 <- data.frame(latitudes, longitudes) # Data Frame con las coordenadas de cada sitio

# Generar un loop (for) que me permita añadir las coordenadas al mapa generado
for (i in coordenadas_1) {
    
  # cuerpo del loop
  ap_map_1 <- addAwesomeMarkers(ap_map_1, 
                              lng = longitudes[i], 
                              lat = latitudes[i]) 
  }


ap_map_1

Aplicación del paquete Dt

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

# Cargar paquete DT
library(DT)

TB <- datatable(iris, class = 'cell-border stripe', #argumento para modificar bordes de la tabla
                colnames = c('ID' = 1), # argumento para modificar los nombres de las columnas)
                caption = 'Tabla 1: Esta es una tabla', # arg. para añadir un caption a la tabla
                filter = 'top', options = list(pageLength = 10, autoWidth = TRUE))

TB

Incrustación de código en el texto

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

corr <- cor(iris$Petal.Length, iris$Petal.Width)
cor_lw <- round(corr, digits = 2)
cor_lw

## [1] 0.96

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

## R version 4.1.3 (2022-03-10)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 22621)
## 
## Matrix products: default
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
## [1] DT_0.30       leaflet_2.2.0 knitr_1.44   
## 
## loaded via a namespace (and not attached):
##  [1] bookdown_0.35     digest_0.6.31     R6_2.5.1          jsonlite_1.8.4   
##  [5] magrittr_2.0.3    evaluate_0.22     rmdformats_1.0.4  cachem_1.0.7     
##  [9] rlang_1.1.0       cli_3.6.1         rstudioapi_0.15.0 jquerylib_0.1.4  
## [13] bslib_0.5.1       ellipsis_0.3.2    rmarkdown_2.25    tools_4.1.3      
## [17] htmlwidgets_1.6.2 crosstalk_1.2.0   xfun_0.39         yaml_2.3.7       
## [21] fastmap_1.1.1     compiler_4.1.3    htmltools_0.5.5   sass_0.4.5