Funcion que genera nombres aleatorios

Creando los dos vectores

nombres <- c('RUBEN', 'CARLOS', 'PATY', 'ALEJANDRO', 'LUISA',
             'ROGELIO', 'ANDREA', 'FABIOLA', 'MARIA', 'FERNANDO')
apellidos <- c('GONZALEZ', 'MEDINA', 'ROBLES', 'JUAREZ', 'RUIZ',
               'PIZARRO', 'RODRIGUEZ', 'CARRETE', 'CAMPOS', 'GOMEZ')
nombres ; apellidos

##  [1] "RUBEN"     "CARLOS"    "PATY"      "ALEJANDRO" "LUISA"    
##  [6] "ROGELIO"   "ANDREA"    "FABIOLA"   "MARIA"     "FERNANDO"

##  [1] "GONZALEZ"  "MEDINA"    "ROBLES"    "JUAREZ"    "RUIZ"     
##  [6] "PIZARRO"   "RODRIGUEZ" "CARRETE"   "CAMPOS"    "GOMEZ"

Generando mil nombres y mil apellidos

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     MARIA     CAMPOS       RUIZ
## 2    ANDREA     JUAREZ  RODRIGUEZ
## 3      PATY  RODRIGUEZ      GOMEZ
## 4     LUISA     ROBLES    PIZARRO
## 5   ROGELIO     MEDINA     CAMPOS
## 6  FERNANDO     CAMPOS      GOMEZ
## 7     MARIA     ROBLES    PIZARRO
## 8  FERNANDO     MEDINA   GONZALEZ
## 9   ROGELIO   GONZALEZ   GONZALEZ
## 10   CARLOS  RODRIGUEZ     CAMPOS

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
}

Llamamos la funcion creada

personas <- generaNombres(nombres, apellidos, 100)
personas

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