Objetivo: Función que genera nombres completos

Creando los dos vectores

nombres <- c('RUBEN', 'CARLOS', 'PATY', 'ALEJANDRO', 'LUISA',"ARMANDO","MARISOL",
             'ROGELIO', 'ANDREA', 'FABIOLA', 'MARIA', 'FERNANDO',"JESUS")
apellidos <- c('GONZALEZ', 'MEDINA', 'ROBLES', 'JUAREZ', 'RUIZ',"URBINA","VEGA",
               'PIZARRO', 'RODRIGUEZ', 'CARRETE', 'CAMPOS', 'GOMEZ',"LEYVA")

nombres ; apellidos
##  [1] "RUBEN"     "CARLOS"    "PATY"      "ALEJANDRO" "LUISA"    
##  [6] "ARMANDO"   "MARISOL"   "ROGELIO"   "ANDREA"    "FABIOLA"  
## [11] "MARIA"     "FERNANDO"  "JESUS"
##  [1] "GONZALEZ"  "MEDINA"    "ROBLES"    "JUAREZ"    "RUIZ"     
##  [6] "URBINA"    "VEGA"      "PIZARRO"   "RODRIGUEZ" "CARRETE"  
## [11] "CAMPOS"    "GOMEZ"     "LEYVA"

Generando mil nombres y mil apellidso

milnombres <- sample(nombres, 1000, replace = TRUE)
milapellidos <- sample(apellidos, 1000, replace = TRUE)

Generando 10 nombres y apellidos completos

Nombre, Paterno y Materno

noms <- sample(milnombres, 10)
apesP <- sample(milapellidos, 10)
apesM <- sample(milapellidos, 10)

nombresCompletos <- data.frame(noms, apesP, apesM)

colnames(nombresCompletos) <- c("Nombre", "Apellido.P", "Apellido.M")
nombresCompletos
##     Nombre Apellido.P Apellido.M
## 1  MARISOL  RODRIGUEZ     ROBLES
## 2    JESUS       VEGA  RODRIGUEZ
## 3  FABIOLA     URBINA   GONZALEZ
## 4     PATY       RUIZ       RUIZ
## 5   CARLOS    PIZARRO     MEDINA
## 6    JESUS   GONZALEZ     ROBLES
## 7    JESUS  RODRIGUEZ    CARRETE
## 8    RUBEN     MEDINA       RUIZ
## 9  ROGELIO    CARRETE       RUIZ
## 10 FABIOLA     JUAREZ   GONZALEZ

Creando una función

generaNombres <- function(losnombres, losapellidos, cuantos) {
  
  milnombres <- sample(nombres, 1000, replace = TRUE)
  milapellidos <- sample(apellidos, 1000, replace = TRUE)
  
  noms <- sample(milnombres, cuantos)
  apesP <- sample(milapellidos, cuantos)
  apesM <- sample(milapellidos, cuantos)
  
  nombresCompletos <- data.frame(noms, apesP, apesM)
  
  colnames(nombresCompletos) <- c("Nombre", "Apellido.P", "Apellido.M")
  nombresCompletos
}

Llamando la función creada

personas <- generaNombres(nombres, apellidos, 100)
personas
##        Nombre Apellido.P Apellido.M
## 1      ANDREA    CARRETE     URBINA
## 2       RUBEN    CARRETE   GONZALEZ
## 3      ANDREA     JUAREZ     CAMPOS
## 4     ARMANDO     MEDINA     URBINA
## 5       RUBEN    PIZARRO     URBINA
## 6     FABIOLA     ROBLES      LEYVA
## 7     MARISOL    CARRETE     JUAREZ
## 8     MARISOL     CAMPOS     ROBLES
## 9     FABIOLA  RODRIGUEZ     URBINA
## 10      LUISA     URBINA  RODRIGUEZ
## 11  ALEJANDRO     JUAREZ    PIZARRO
## 12   FERNANDO     CAMPOS       VEGA
## 13      JESUS     JUAREZ    CARRETE
## 14    FABIOLA      LEYVA     MEDINA
## 15     ANDREA    PIZARRO  RODRIGUEZ
## 16   FERNANDO  RODRIGUEZ    CARRETE
## 17      LUISA     ROBLES       VEGA
## 18    FABIOLA       RUIZ     URBINA
## 19      JESUS     URBINA     MEDINA
## 20     CARLOS     ROBLES   GONZALEZ
## 21      MARIA  RODRIGUEZ     CAMPOS
## 22      LUISA     CAMPOS      GOMEZ
## 23      LUISA     MEDINA    PIZARRO
## 24    ROGELIO     MEDINA    PIZARRO
## 25       PATY     MEDINA       VEGA
## 26    FABIOLA    PIZARRO    PIZARRO
## 27    ROGELIO     JUAREZ     MEDINA
## 28      MARIA      GOMEZ   GONZALEZ
## 29      RUBEN     CAMPOS    PIZARRO
## 30      RUBEN  RODRIGUEZ      GOMEZ
## 31    ROGELIO    CARRETE     URBINA
## 32      JESUS     MEDINA     ROBLES
## 33    MARISOL    PIZARRO     CAMPOS
## 34    FABIOLA      LEYVA  RODRIGUEZ
## 35      JESUS       VEGA     URBINA
## 36      LUISA     ROBLES       VEGA
## 37    ARMANDO     CAMPOS     MEDINA
## 38      LUISA    CARRETE     URBINA
## 39    ARMANDO     CAMPOS     MEDINA
## 40  ALEJANDRO       VEGA      LEYVA
## 41    ROGELIO  RODRIGUEZ    CARRETE
## 42   FERNANDO      LEYVA       VEGA
## 43      RUBEN       RUIZ       RUIZ
## 44    MARISOL     URBINA    CARRETE
## 45    ARMANDO     MEDINA      GOMEZ
## 46    MARISOL     URBINA     CAMPOS
## 47      JESUS     JUAREZ       VEGA
## 48    MARISOL     ROBLES       VEGA
## 49      LUISA    PIZARRO     URBINA
## 50      RUBEN     JUAREZ     URBINA
## 51    ROGELIO      GOMEZ     MEDINA
## 52     CARLOS      LEYVA     ROBLES
## 53       PATY       VEGA     ROBLES
## 54    MARISOL       VEGA   GONZALEZ
## 55     CARLOS     CAMPOS     URBINA
## 56      JESUS     JUAREZ   GONZALEZ
## 57    FABIOLA     MEDINA     URBINA
## 58    ARMANDO     URBINA    PIZARRO
## 59    ARMANDO     JUAREZ    PIZARRO
## 60    ROGELIO     URBINA       RUIZ
## 61   FERNANDO     URBINA      LEYVA
## 62    ARMANDO    CARRETE  RODRIGUEZ
## 63    FABIOLA       RUIZ     JUAREZ
## 64  ALEJANDRO  RODRIGUEZ     URBINA
## 65  ALEJANDRO   GONZALEZ    CARRETE
## 66    FABIOLA     URBINA     URBINA
## 67      MARIA   GONZALEZ      GOMEZ
## 68   FERNANDO  RODRIGUEZ      GOMEZ
## 69   FERNANDO       VEGA       RUIZ
## 70   FERNANDO     MEDINA     ROBLES
## 71    MARISOL   GONZALEZ    PIZARRO
## 72     ANDREA     JUAREZ     ROBLES
## 73     ANDREA  RODRIGUEZ     CAMPOS
## 74      LUISA     ROBLES      GOMEZ
## 75      LUISA      LEYVA       VEGA
## 76    ROGELIO     JUAREZ    PIZARRO
## 77      JESUS     CAMPOS      LEYVA
## 78    MARISOL      GOMEZ    CARRETE
## 79    MARISOL     URBINA     CAMPOS
## 80    MARISOL  RODRIGUEZ    PIZARRO
## 81      LUISA     URBINA  RODRIGUEZ
## 82      LUISA     ROBLES   GONZALEZ
## 83      LUISA    CARRETE     CAMPOS
## 84     ANDREA    PIZARRO       VEGA
## 85     CARLOS     URBINA      GOMEZ
## 86    ROGELIO   GONZALEZ     JUAREZ
## 87    MARISOL      LEYVA    CARRETE
## 88     CARLOS     URBINA    PIZARRO
## 89       PATY     MEDINA     CAMPOS
## 90      JESUS     JUAREZ    PIZARRO
## 91      LUISA     JUAREZ       VEGA
## 92    MARISOL     URBINA     JUAREZ
## 93  ALEJANDRO    PIZARRO  RODRIGUEZ
## 94  ALEJANDRO      LEYVA     URBINA
## 95      RUBEN     URBINA       VEGA
## 96  ALEJANDRO       VEGA   GONZALEZ
## 97      LUISA     URBINA   GONZALEZ
## 98       PATY     URBINA     MEDINA
## 99      RUBEN     ROBLES    PIZARRO
## 100    CARLOS      LEYVA    CARRETE

Analisis Descriptivo

Se genero una funcion para crear nombres con apellido paterno y apellido materno apartir de dos vectores con 13 variales cada uno; mismo que los nombres sean generados aleatoriamente sin que se repitan.