Este estudio de caso constituye el 60% de la calificación.
El exámen es individual y desde ese punto de vista dos exámenes no tienen porque estar iguales ni parecidos, ya que se espera creatividad y trabajo individual para la realización de los mismos.
El reporte final se debe enviar a más tardar el martes 01 de agosto de 2020 antes de las 11:59 a la cuenta de correo saavedrarmg@javeriana.edu.co o al whatsapp
Reportar las cifras utilizando la cantidad adecuada de decimales, dependiendo de lo que se quiera mostrar y las necesidades del problema.
Numerar figuras y tablas http://unilearning.uow.edu.au/report/1fi.html y proporcionarles un tamaño adecuado que no distorsione la información que estas contienen.
El archivo del reporte final debe ser generado por Markdown en formato html.
La presentación, la organización, la redacción y la ortografía serán parte integral de la calificación.
El objetivo principal de este trabajo es la claridad lógica y la interpretación de los resultados. El informe no necesita ser extenso. Recuerde ser minimalista escribiendo el reporte. Se deben incluir solo aquellos gráficos y tablas (¡y valores en la tabla!) que son relevantes para la discusión.
Cualquier evidencia de plagio o copia se castigará severamentetal y como el reglamento de la Universidad Javeriana de Colombia lo estipula.
Dejo a mi discreción el uso de software especializado para evaluar si hay copia o plagiode otros informes o internet.Si está claro que (por ejemplo) dos grupos han trabajado juntos en una parte de un problema que vale 20 puntos, y cada respuesta habría ganado 16 puntos (si no hubiera surgido de una colaboración ilegal), entonces cada grupo recibirá 8 de los 16 puntos obtenidos colectivamente (para una puntuación totalde 8 de 20), y me reservo el derecho de imponer penalidades adicionalesa mi discreción
Considere el censo realizado por los Estados Unidos que se trabajó en clase, durante cada una de las sesiones de trabajo, para la realización de un análisis descriptivos de la variable población de habitantes por Estado.
Para lo anterior debe inicialmente cargar su clave api, que descargó con anterioridad, y cargar e instalar las siguientes librerías:
library(tidyverse) ##a compilation of data-wrangling packages, including dplyr
library(plyr)
library(dplyr)
library(tidycensus) ##pull census and acs data through API
library(stringr) ##manipulate strings
library(leaflet) ##interactive maps
library(sf) ##join spatial data
library(raster)
library(tmap) ##new package to map
library(tmaptools) ##dependency for tmap
library(censusapi)
library(rmapshaper)
library(shiny)
library(shinyjs)Use la variable “población total de Arkansas”
arkansas_pop <- get_acs(geography = "county",
variables = "B01003_001",
state = "AR",
geometry = TRUE) ##
|
| | 0%
|
| | 1%
|
|= | 1%
|
|= | 2%
|
|== | 2%
|
|== | 3%
|
|=== | 4%
|
|=== | 5%
|
|==== | 5%
|
|==== | 6%
|
|===== | 7%
|
|====== | 8%
|
|====== | 9%
|
|======= | 9%
|
|======= | 10%
|
|======== | 11%
|
|======== | 12%
|
|========= | 13%
|
|=========== | 16%
|
|============ | 18%
|
|============== | 20%
|
|================ | 23%
|
|================= | 24%
|
|================= | 25%
|
|======================= | 33%
|
|======================== | 34%
|
|======================== | 35%
|
|========================= | 36%
|
|============================ | 40%
|
|============================= | 41%
|
|============================== | 43%
|
|=================================== | 51%
|
|===================================== | 54%
|
|======================================= | 56%
|
|======================================== | 57%
|
|========================================= | 59%
|
|========================================== | 60%
|
|=========================================== | 61%
|
|=========================================== | 62%
|
|============================================ | 62%
|
|============================================ | 63%
|
|=============================================== | 67%
|
|================================================ | 69%
|
|================================================= | 69%
|
|================================================== | 71%
|
|================================================== | 72%
|
|=================================================== | 72%
|
|=================================================== | 73%
|
|===================================================== | 76%
|
|======================================================= | 78%
|
|======================================================== | 80%
|
|========================================================== | 82%
|
|========================================================== | 83%
|
|=========================================================== | 84%
|
|============================================================= | 87%
|
|============================================================== | 89%
|
|=================================================================== | 96%
|
|==================================================================== | 97%
|
|==================================================================== | 98%
|
|======================================================================| 100%glimpse(arkansas_pop)## Rows: 75
## Columns: 6
## $ GEOID <chr> "05019", "05073", "05021", "05041", "05061", "05093", "05001"…
## $ NAME <chr> "Clark County, Arkansas", "Lafayette County, Arkansas", "Clay…
## $ variable <chr> "B01003_001", "B01003_001", "B01003_001", "B01003_001", "B010…
## $ estimate <dbl> 21569, 6373, 14661, 11530, 12894, 41061, 17273, 68199, 42875,…
## $ moe <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
## $ geometry <MULTIPOLYGON [°]> MULTIPOLYGON (((-93.50217 3..., MULTIPOLYGON (((…color_pal <- colorQuantile(palette = "viridis", domain = arkansas_pop$estimate, n = 10)
arkansas_pop %>%
st_transform(crs = "+init=epsg:4326") %>%
leaflet(width = "100%") %>%
addProviderTiles(provider = "CartoDB.Positron") %>%
addPolygons(popup = ~ str_extract(NAME, "^([^,]*)"),
stroke = FALSE,
smoothFactor = 0,
fillOpacity = 0.7,
color = ~ color_pal(estimate)) %>%
addLegend("bottomright",
pal = color_pal,
values = ~ estimate,
title = "Population percentiles",
opacity = 1)## Warning in CPL_crs_from_input(x): GDAL Message 1: +init=epsg:XXXX syntax is
## deprecated. It might return a CRS with a non-EPSG compliant axis order.Proceda a realizar su análisis de los datos a continuación: