Primera entrega

Exploración del set de datos

Esta primera entrega consiste en la escritura del script para importar y explorar el set de datos elegido. El objetivo es generar el código necesario que les permita responder cinco preguntas acerca de los datos seleccionados.

Datos

En la siguiente carpeta es posible revisar los conjuntos de datos disponibles hasta el momento (se irá actualizando en los próximos días a medida que respondan la encuesta de registro de temas):

conjunto de datos

En el archivo 00_fuente-de-los-datos.txt hay un enlace de referencia para cada conjunto de datos, en el que pueden encontrar más detalles sobre el mismo.

Modalidad entrega

Para el trabajo del curso deben crear un proyecto nuevo, es decir, utilizar una carpeta diferente a la que hemos estado utilizando para el código de clases. Para la entrega deberán enviar la carpeta con su proyecto a través de un enlace que se les informará oportunamente.

El formato para nombrar la carpeta es proyecto_apellido-nombre.

Fecha de entrega

Semana del 17 de abril

Ejemplo de script entrega 1

# Activar los paquetes a utilizar
library(dplyr)
library(readr)

# Importar los datos

datos_desarrollo <- read_csv("datos/datos-desarrollo.csv")

# Pregunta 1
## a. ¿Cuáles fueron los tres países con mayor esperanza de vida según continente en el año 2020?

datos_desarrollo %>% 
  filter(anio == 2020) %>% 
  group_by(continente) %>% 
  slice_max(esperanza_vida, n = 3)

## a. ¿Cuáles fueron los tres países con menor esperanza de vida según continente en el año 2020?

datos_desarrollo %>% 
  filter(anio == 2020) %>% 
  group_by(continente) %>% 
  slice_min(esperanza_vida, n = 3)


# Pregunta 2
## ¿Cuál fue la población total de cada continente en los años 2000, 2010 y 2020?

datos_desarrollo %>% 
  filter(anio %in% c(2000, 2010, 2020)) %>% 
  group_by(continente, anio) %>% 
  summarise(total = sum(poblacion))
  
  
# Pregunta 3
## ¿Cuántos países por continente tuvieron un pib per cápita menor a 1000 dólares el año 2020?

datos_desarrollo %>% 
  filter(pib < 1000, anio == 2020) %>% 
  count(continente)


# Pregunta 4
## Entre los 20 países con mayor esperanza de vida en 2020, ¿cuáles son los 3 que tienen un menor pib per cápita?

datos_desarrollo %>% 
  filter(anio == 2020) %>% 
  slice_max(esperanza_vida, n = 20) %>% 
  slice_min(pib, n = 3)


# Pregunta 5
## ¿Cuál fue el mínimo, el máximo, el promedio y la desviación estándar del pib per cápita por continente el año 2009?

datos_desarrollo %>% 
  filter(anio == 2020) %>% 
  group_by(continente) %>% 
  summarise(minimo = min(pib, na.rm = TRUE),
            maximo = max(pib, na.rm = TRUE),
            media = mean(pib, na.rm = TRUE),
            desv_est = sd(pib, na.rm = TRUE))