Skip to main content
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
título editado
Enlace
PaperBirdMaster
  • 48.1k
  • 6
  • 45
  • 86

Export matrix to Exportar matriz a csv inen R

se añadieron 2 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54

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)),

"";"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)),

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)),

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)),
Publicación reabierta por lois6b
se añadieron 247 caracteres en el cuerpo
Origen Enlace

I haveTengo 3 csv files each one withcon 3050 lines. I read CSVs and put every field in a new matrix for make a newlineas 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.

The code isEl código es este:

In console I can see some like thisSi ejecuto el script en la consola se ve bien como en el ejemplo:

But when I open thePero cuando abro el CSV file I see this: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...

"";"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)),Some DNI and some Telf.

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)),

I have 3 csv files each one with 3050 lines. I read CSVs and put every field in a new matrix for make a new csv.

The code is

In console I can see some like this:

But when I open the CSV file I see this:

"";"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)),Some DNI and some Telf.

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:

Si ejecuto el script en la consola se ve bien como en el ejemplo:

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)),

se añadieron 164 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54
Loading
Publicación cerrada como "No adecuado para este sitio" por lois6b
Origen Enlace
Loading