Data frame sobre empleados, compañia de finanzas.

Descripción

Invento una supuesta empresa de giro financiero para mostrar mis habiliades en R, este es el primer proyecto y el más básico.

Procedimiento

Cargar las librerias necesarias y despues crear variables a cada vector o lista creada, despues hacer el data frame.

library(tidyr)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
id <- c(1:10)
nombre <- c("Luis Mendez", "Roberto Cabrera", "Raquel Aquino", "Chris Hickman", "Guadalupe Delgado", "Javier Gomez", "Daniela Contreras", "Stephen Curry", "Ramon Perez", "Judith Polgar")
titulo_puesto <- c("Analista Financiero", "Contabilidad", "Director General", "Intendente", "Atención al Cliente", "Programador", "Gerente Bancario", "Director Financiero", "Ventas", "Director Administrativo")
empleados <- data.frame(id, nombre, titulo_puesto)
print(empleados)
##    id            nombre           titulo_puesto
## 1   1       Luis Mendez     Analista Financiero
## 2   2   Roberto Cabrera            Contabilidad
## 3   3     Raquel Aquino        Director General
## 4   4     Chris Hickman              Intendente
## 5   5 Guadalupe Delgado     Atención al Cliente
## 6   6      Javier Gomez             Programador
## 7   7 Daniela Contreras        Gerente Bancario
## 8   8     Stephen Curry     Director Financiero
## 9   9       Ramon Perez                  Ventas
## 10 10     Judith Polgar Director Administrativo

transformar el df

Supongamos que queremos tener nombres y apellidos separados.

separate(empleados, nombre, into = c('nombre_pila', 'apellido'), sep = " ")
##    id nombre_pila  apellido           titulo_puesto
## 1   1        Luis    Mendez     Analista Financiero
## 2   2     Roberto   Cabrera            Contabilidad
## 3   3      Raquel    Aquino        Director General
## 4   4       Chris   Hickman              Intendente
## 5   5   Guadalupe   Delgado     Atención al Cliente
## 6   6      Javier     Gomez             Programador
## 7   7     Daniela Contreras        Gerente Bancario
## 8   8     Stephen     Curry     Director Financiero
## 9   9       Ramon     Perez                  Ventas
## 10 10      Judith    Polgar Director Administrativo

hacemos un df con el resultado

empleados2 <- separate(empleados, nombre, into = c('nombre_pila', 'apellido'), sep = " ")
print(empleados2)
##    id nombre_pila  apellido           titulo_puesto
## 1   1        Luis    Mendez     Analista Financiero
## 2   2     Roberto   Cabrera            Contabilidad
## 3   3      Raquel    Aquino        Director General
## 4   4       Chris   Hickman              Intendente
## 5   5   Guadalupe   Delgado     Atención al Cliente
## 6   6      Javier     Gomez             Programador
## 7   7     Daniela Contreras        Gerente Bancario
## 8   8     Stephen     Curry     Director Financiero
## 9   9       Ramon     Perez                  Ventas
## 10 10      Judith    Polgar Director Administrativo
unite(empleados2, 'nombre', nombre_pila, apellido, sep = ' ')
##    id            nombre           titulo_puesto
## 1   1       Luis Mendez     Analista Financiero
## 2   2   Roberto Cabrera            Contabilidad
## 3   3     Raquel Aquino        Director General
## 4   4     Chris Hickman              Intendente
## 5   5 Guadalupe Delgado     Atención al Cliente
## 6   6      Javier Gomez             Programador
## 7   7 Daniela Contreras        Gerente Bancario
## 8   8     Stephen Curry     Director Financiero
## 9   9       Ramon Perez                  Ventas
## 10 10     Judith Polgar Director Administrativo