Tengo 3 csv con 3050 lineas cada uno, lo que quiero hacer es juntar los 3 y añadirles datos adicionales para luego sacarlo en un nuevo csv. Pero al exportar la matriz resultante me encuentro con que el formato no es correcto.
El código es este:
nombres <- read.csv("C:/Users/CASA/Desktop/nombres.csv", header=TRUE, sep=",", na.strings="NA",dec=",")
apellidos1 <- read.csv("C:/Users/CASA/Desktop/apellidos1.csv", header=TRUE, sep=",", na.strings="NA",dec=",")
apellidos2 <- read.csv("C:/Users/CASA/Desktop/apellidos2.csv", header=TRUE, sep=",", na.strings="NA",dec=",")
total <-3050
clientes<-data.frame(matrix(, nrow=total , ncol=0))
for (ind in 0:total-1){
clientes$Apellido1<-apellidos1[ind]
clientes$Apellido2<-apellidos2[ind]
clientes$Nombre<-nombres[ind]
clientes$DNI<-generadni()
clientes$Telf<-sample(600000000:699999999,1)
}
print(clientes)
print("FIN")
#DNI
generadni<-function(){
valor<-sample(10000000:99999999,1)
dni<-valor
valor<-valor/23
valor<-as.integer(valor)
valor<-valor*23
valor<-dni-valor
#letras<-"TRWAGMYFPDXBNJZSQVHLCKEO"
letras<-c("T","R","W","A","G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E","O")
#dni<-as.character(dni)
#letra<-substr(letras,valor,1)
letra<-letras[valor]
resultado<-paste(dni,letra,sep="")
return(resultado)
}
write.csv2(clientes, "C:/Users/CASA/Desktop/resultado.csv", sep=",")
Si ejecuto el script en la consola se ve bien como en el ejemplo:
APELLIDO1 DNI Telf
1 Aguilar 17139198B 636536106
2 Alonso 17139198B 636536106
3 Álvarez 17139198B 636536106
...
Pero cuando abro el CSV lo veo mal, como si la primera columna en vez de ser una cadena de texto fuera c1(numeros del 1 al 108), DNI, teléfono...
Un ejemplo:
"";"Apellido1";"DNI";"Telf"
"1";c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,...(to 108)),
sep=","
y luego en el ejemplo del csv tienes;
?clientes
, puedes hacer algo así:dput(head(clientes))
. y agregar la salida editando tu pregunta.