Integrantes: - George Felipe Bedoya - Jennifer Ponce - Nelly Reyes - Almendra Rodriguez
library(gapminder)
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──## ✓ ggplot2 3.3.3 ✓ purrr 0.3.4
## ✓ tibble 3.1.1 ✓ dplyr 1.0.7
## ✓ tidyr 1.1.3 ✓ stringr 1.4.0
## ✓ readr 1.4.0 ✓ forcats 0.5.1## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()gapminder## # A tibble: 1,704 x 6
## country continent year lifeExp pop gdpPercap
## <fct> <fct> <int> <dbl> <int> <dbl>
## 1 Afghanistan Asia 1952 28.8 8425333 779.
## 2 Afghanistan Asia 1957 30.3 9240934 821.
## 3 Afghanistan Asia 1962 32.0 10267083 853.
## 4 Afghanistan Asia 1967 34.0 11537966 836.
## 5 Afghanistan Asia 1972 36.1 13079460 740.
## 6 Afghanistan Asia 1977 38.4 14880372 786.
## 7 Afghanistan Asia 1982 39.9 12881816 978.
## 8 Afghanistan Asia 1987 40.8 13867957 852.
## 9 Afghanistan Asia 1992 41.7 16317921 649.
## 10 Afghanistan Asia 1997 41.8 22227415 635.
## # … with 1,694 more rowsEjercicio 1: Recrea el siguiente conjunto de datos usando gapminder. Usa country.
EjMex<-filter(gapminder, country == "Mexico")EjMex## # A tibble: 12 x 6
## country continent year lifeExp pop gdpPercap
## <fct> <fct> <int> <dbl> <int> <dbl>
## 1 Mexico Americas 1952 50.8 30144317 3478.
## 2 Mexico Americas 1957 55.2 35015548 4132.
## 3 Mexico Americas 1962 58.3 41121485 4582.
## 4 Mexico Americas 1967 60.1 47995559 5755.
## 5 Mexico Americas 1972 62.4 55984294 6809.
## 6 Mexico Americas 1977 65.0 63759976 7675.
## 7 Mexico Americas 1982 67.4 71640904 9611.
## 8 Mexico Americas 1987 69.5 80122492 8688.
## 9 Mexico Americas 1992 71.5 88111030 9472.
## 10 Mexico Americas 1997 73.7 95895146 9767.
## 11 Mexico Americas 2002 74.9 102479927 10742.
## 12 Mexico Americas 2007 76.2 108700891 11978.Ejercicio 4 - Opcional Responde las siguientes preguntas:
1.¿Cuántos países de Asia y África fueron incluidos en el conjunto de datos para el año 2007?
gap2007 <-filter(gapminder, continent %in% c("Asia", "Africa"), year == 2007)gap2007## # A tibble: 85 x 6
## country continent year lifeExp pop gdpPercap
## <fct> <fct> <int> <dbl> <int> <dbl>
## 1 Afghanistan Asia 2007 43.8 31889923 975.
## 2 Algeria Africa 2007 72.3 33333216 6223.
## 3 Angola Africa 2007 42.7 12420476 4797.
## 4 Bahrain Asia 2007 75.6 708573 29796.
## 5 Bangladesh Asia 2007 64.1 150448339 1391.
## 6 Benin Africa 2007 56.7 8078314 1441.
## 7 Botswana Africa 2007 50.7 1639131 12570.
## 8 Burkina Faso Africa 2007 52.3 14326203 1217.
## 9 Burundi Africa 2007 49.6 8390505 430.
## 10 Cambodia Asia 2007 59.7 14131858 1714.
## # … with 75 more rowsRespuesta 1: 85 países de Asia y África fueron incluidos en el conjunto de datos para el año 2007.
gap3_2007 <-filter(gap2007, lifeExp > 60)gap3_2007 ## # A tibble: 42 x 6
## country continent year lifeExp pop gdpPercap
## <fct> <fct> <int> <dbl> <int> <dbl>
## 1 Algeria Africa 2007 72.3 33333216 6223.
## 2 Bahrain Asia 2007 75.6 708573 29796.
## 3 Bangladesh Asia 2007 64.1 150448339 1391.
## 4 China Asia 2007 73.0 1318683096 4959.
## 5 Comoros Africa 2007 65.2 710960 986.
## 6 Egypt Africa 2007 71.3 80264543 5581.
## 7 Ghana Africa 2007 60.0 22873338 1328.
## 8 Hong Kong, China Asia 2007 82.2 6980412 39725.
## 9 India Asia 2007 64.7 1110396331 2452.
## 10 Indonesia Asia 2007 70.6 223547000 3541.
## # … with 32 more rowsRespuesta 2: 42 países tenían una esperanza de vida mayor a 60 años