1

Tengo un data frame (revs_2018) cuyas filas quiero unir a las de otro (revs_todo), considerando lo siguiente:

  • los nombres, cantidades y orden de las columnas son iguales
  • las clases de las columnas no coinciden (las correctas son las de revs_todo)
# El número de columnas coincide en ambos data frames:
> ncol(x = revs_todo)
[1] 34
> ncol(x = revs_2018)
[1] 34

# La primera columna del data frame principal es de clase factor:
> sapply(X = revs_todo, FUN = class)[1:2]
Ruta relativa           Año 
     "factor"     "integer" 

# La primera columna del data frame secundario es de clase character:
> sapply(X = revs_2018, FUN = class)[1:2]
Ruta relativa           Año 
  "character"     "integer" 

¿Hay manera de coercionar las clases de las columnas del data frame secundario a las clases de las columnas del data frame primario sin recurrir a un for, o en su defecto, unir ambos data frames manteniendo las clases del data frame principal?

2 respuestas 2

1

La coerción en R solo funciona para los tipos de datos básicos y los factores no lo son. De hecho, puede que el problema sea más complejo que simplemente aplicar un as.factor() a la columna. La pregunta que hay que hacerse ¿la nueva columna debe respetar las mismas categorías de la columna origen? ¿Qué ocurre si hay nuevas categorías?

Si simplemente buscamos convertir una columna "character" a un "factor" podemos condicionar según el tipo de dato y hacer una coerción o una conversión:

change_class <- function(x, y) {
  to <- class(y)
  if (to == "factor") {
    x <- factor(x)
  } else {
    x <- as(x, to)
  }
  x
}

a <- data.frame(col1 = c("3", "4"), col2 = c("a", "c"))
b <- data.frame(col1 = c(1, 2), col2 = factor(c("a", "b")))

f <- as.data.frame.list(mapply(FUN = change_class, a, b, SIMPLIFY = FALSE))
str(f)

'data.frame':   2 obs. of  2 variables:
 $ col1: num  3 4
 $ col2: Factor w/ 2 levels "a","c": 1 2
0

Prueba con esto:

revs_2018[] <- mapply(FUN = as, revs_2018, sapply(revs_todo, class), SIMPLIFY = FALSE)
2
  • Gracias @lumartor aunque me lanza el siguiente mensaje: Error in (function (object, Class, strict = TRUE, ext = possibleExtends(thisClass, : no method or default for coercing “character” to “factor”
    – Percy
    el 15 ago. 2022 a las 23:43
  • Pulsa en editar y explica brevemente cómo funciona este código. Esta respuesta se reportó como de baja calidad debido a su extensión y contenido.
    – padaleiana
    el 16 ago. 2022 a las 11:17

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.