#Actividad Utilice la estructura de control case_when() para imputar el nombre de la entidad federativa (o país) a cada uno de los alumnos de las diferentes generaciones de la maestría en economía de la BUAP. Tome como referencia lo viste en clase y el catalogo de inegi.

#Realice los vectores correspondientes y declárelos con los nombres de las columnas

nombre<-c("Alam","Enrique","Eddy","César","Marcel","Surya","Jany","Yubi","Noelia","Micelle","Juan","Christian")
nombre
##  [1] "Alam"      "Enrique"   "Eddy"      "César"     "Marcel"    "Surya"    
##  [7] "Jany"      "Yubi"      "Noelia"    "Micelle"   "Juan"      "Christian"
Edad<-c(32,27,35,35,26,32,29,24,39,40,50,30)
Edad
##  [1] 32 27 35 35 26 32 29 24 39 40 50 30
Estatura<-c(1.73,1.75,1.7,1.74,1.55,1.56,1.65,1.58,1.59,1.6,1.7,1.72)
Estatura
##  [1] 1.73 1.75 1.70 1.74 1.55 1.56 1.65 1.58 1.59 1.60 1.70 1.72
Estado<-c(21,21,21,30,30,30,200,200,21,13,14,19)
Estado
##  [1]  21  21  21  30  30  30 200 200  21  13  14  19

#Conviértalo en data frame y declárelo con el nombre “data”. Aplique str() para conocer sus datos.

data<-data.frame(nombre,Edad,Estatura,Estado)
data
##       nombre Edad Estatura Estado
## 1       Alam   32     1.73     21
## 2    Enrique   27     1.75     21
## 3       Eddy   35     1.70     21
## 4      César   35     1.74     30
## 5     Marcel   26     1.55     30
## 6      Surya   32     1.56     30
## 7       Jany   29     1.65    200
## 8       Yubi   24     1.58    200
## 9     Noelia   39     1.59     21
## 10   Micelle   40     1.60     13
## 11      Juan   50     1.70     14
## 12 Christian   30     1.72     19
str(data)
## 'data.frame':    12 obs. of  4 variables:
##  $ nombre  : chr  "Alam" "Enrique" "Eddy" "César" ...
##  $ Edad    : num  32 27 35 35 26 32 29 24 39 40 ...
##  $ Estatura: num  1.73 1.75 1.7 1.74 1.55 1.56 1.65 1.58 1.59 1.6 ...
##  $ Estado  : num  21 21 21 30 30 30 200 200 21 13 ...
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.1     ✔ stringr   1.5.2
## ✔ ggplot2   4.0.0     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.1.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
datanew<- data %>%
   mutate(estado_origen = case_when(
 Estado == 30 ~ "Veracruz",
 Estado == 21 ~ "Puebla",
 Estado == 13 ~ "Hidalgo",
 Estado == 14 ~ "Jalisco",
 Estado == 19 ~ "Nuevo Leon",
 Estado == 200 ~ "Otros paises de America"))
datanew
##       nombre Edad Estatura Estado           estado_origen
## 1       Alam   32     1.73     21                  Puebla
## 2    Enrique   27     1.75     21                  Puebla
## 3       Eddy   35     1.70     21                  Puebla
## 4      César   35     1.74     30                Veracruz
## 5     Marcel   26     1.55     30                Veracruz
## 6      Surya   32     1.56     30                Veracruz
## 7       Jany   29     1.65    200 Otros paises de America
## 8       Yubi   24     1.58    200 Otros paises de America
## 9     Noelia   39     1.59     21                  Puebla
## 10   Micelle   40     1.60     13                 Hidalgo
## 11      Juan   50     1.70     14                 Jalisco
## 12 Christian   30     1.72     19              Nuevo Leon

¿Identificó que hizo mutate a su data frame? Agrego una nueva columna titulada estado_origen