U1A11

Repaso de unidad 1 y 2: Crecimiento económico mundial

Para este ejercicio usaremos los datos de GDP de paises de América del norte descargados de esta página: https://ourworldindata.org/economic-growth

Importar datos

setwd("~/E1LMV11")
library(readr)
GDP <- read_csv("GDP.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   year = col_double(),
##   mexico = col_double(),
##   usa = col_double(),
##   canada = col_double()
## )

head(GDP)

## # A tibble: 6 x 4
##    year mexico   usa canada
##   <dbl>  <dbl> <dbl>  <dbl>
## 1  1900   1374  6252   4630
## 2  1901   1477  6822   4913
## 3  1902   1356  6756   5270
## 4  1903   1493  6955   5260
## 5  1904   1503  6739   5161
## 6  1905   1643  7094   5590

Análisis para México

Crear una variable que contenga los datos para México

mex <- GDP$mexico

Estadística descriptiva

Medidas de tendencia central

Media

mediamex <- mean(mex)
mediamex

## [1] 5818.308

Mediana

medianmex <- median(mex)
medianmex

## [1] 3256

Moda

library(modeest)
mlv(mex, method="mfv")[1]

## [1] 1356

Rango interuartil (IQR)

summary(mex)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1356    1872    3256    5818    9946   15803

IQR(mex)

## [1] 8074

Gráfico de caja y bigote

boxplot(mex)

Histograma

hist(mex)

## Análisis para USA

setwd("~/E1LMV11")
library(readr)
GDP <- read_csv("GDP_USA.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   year = col_double(),
##   usa = col_double()
## )

Variable de USA

USA <- GDP$usa

Estadística descriptiva

Medidas de tendencia central

Media

mediausa <- mean(USA)
mediausa

## [1] 22958.44

Mediana

medianausa <- median(USA)
medianausa

## [1] 17407

Moda

library(modeest)
mlv(USA, method="mfv")[1]

## [1] 6252

Rango intercuartil (IQR)

summary(USA)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6252    9490   17407   22958   34730   53015

IQR(USA)

## [1] 25240

Gráfico de caja y bigote

boxplot(USA)

Histograma

hist(USA)

Cuando ya se han comparado los datos, podemos observar la diferencia que existe entre México y USA, esté último tiene mayor crecimiento económico comparado con México; esto se esto se da por diferentes factores entre los cuales estan la forma de gobiernos , la forma de trabajo , las organizaciones, estilos de vida, las costumbres, etc.