Crear un marco de datos a partir de dos vectores utilizando cbind

Question

Considere el siguiente código de R.

> x = cbind(c(10, 20), c("[]", "[]"), c("[[1,2]]","[[1,3]]")) 
> x 
    [,1] [,2] [,3]  
[1,] "10" "[]" "[[1,2]]" 
[2,] "20" "[]" "[[1,3]]" 

Del mismo modo

> x = rbind(c(10, "[]", "[[1,2]]"), c(20, "[]", "[[1,3]]")) 
> x 
    [,1] [,2] [,3]  
[1,] "10" "[]" "[[1,2]]" 
[2,] "20" "[]" "[[1,3]]" 

Ahora, no quiero los números enteros y 1020 que se convierten en cadenas. ¿Cómo puedo realizar esta operación sin dicha conversión? Lo del curso también me gustaría saber por qué ocurre esta conversión. Miré la ayuda cbind y también probé Google, pero no tuve suerte encontrando una solución . También creo que en algunos casos. R convierte cadenas a factores, y tampoco quiero que eso suceda, aunque no parece que esté pasando aquí.

Answer 1

Los vectores y matrices solo pueden ser de un solo tipo y cbind y rbind en vectores darán matrices. En estos casos, los valores numéricos se promoverán a valores de caracteres ya que ese tipo contendrá todos los valores.

(Tenga en cuenta que en su ejemplo rbind, la promoción ocurre dentro del c llamada:.

> c(10, "[]", "[[1,2]]") 
[1] "10"  "[]"  "[[1,2]]" 

Si desea una estructura rectangular donde las columnas pueden ser de diferentes tipos, que desea una data.frame Cualquiera de los siguientes debe conseguir lo que quiere:

> x = data.frame(v1=c(10, 20), v2=c("[]", "[]"), v3=c("[[1,2]]","[[1,3]]")) 
> x 
    v1 v2  v3 
1 10 [] [[1,2]] 
2 20 [] [[1,3]] 
> str(x) 
'data.frame': 2 obs. of 3 variables: 
$ v1: num 10 20 
$ v2: Factor w/ 1 level "[]": 1 1 
$ v3: Factor w/ 2 levels "[[1,2]]","[[1,3]]": 1 2 

o (en concreto con la versión de data.framecbind)

> x = cbind.data.frame(c(10, 20), c("[]", "[]"), c("[[1,2]]","[[1,3]]")) 
> x 
    c(10, 20) c("[]", "[]") c("[[1,2]]", "[[1,3]]") 
1  10   []     [[1,2]] 
2  20   []     [[1,3]] 
> str(x) 
'data.frame': 2 obs. of 3 variables: 
$ c(10, 20)    : num 10 20 
$ c("[]", "[]")   : Factor w/ 1 level "[]": 1 1 
$ c("[[1,2]]", "[[1,3]]"): Factor w/ 2 levels "[[1,2]]","[[1,3]]": 1 2 

o (usando cbind, pero haciendo la primera data.frame una forma que combina como data.frames hacen):

> x = cbind(data.frame(c(10, 20)), c("[]", "[]"), c("[[1,2]]","[[1,3]]")) 
> x 
    c.10..20. c("[]", "[]") c("[[1,2]]", "[[1,3]]") 
1  10   []     [[1,2]] 
2  20   []     [[1,3]] 
> str(x) 
'data.frame': 2 obs. of 3 variables: 
$ c.10..20.    : num 10 20 
$ c("[]", "[]")   : Factor w/ 1 level "[]": 1 1 
$ c("[[1,2]]", "[[1,3]]"): Factor w/ 2 levels "[[1,2]]","[[1,3]]": 1 2 

Answer 2

Usando data.frame en lugar de cbind debería ser útil

x <- data.frame(col1=c(10, 20), col2=c("[]", "[]"), col3=c("[[1,2]]","[[1,3]]")) 
x 
    col1 col2 col3 
1 10 [] [[1,2]] 
2 20 [] [[1,3]] 

sapply(x, class) # looking into x to see the class of each element 
    col1  col2  col3 
"numeric" "factor" "factor" 

Como se puede ver elementos de col1 son numeric como desee.

data.frame puede tener variables de diferente class: numeric, factor y character pero matrix no, una vez que poner un elemento character en una matriz de todos los demás se convierten en esta clase no importa qué clase que eran antes.