Skip to main content
se añadieron 236 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Se puede sin bucles, pero es necesario trabajar con columnas/variables auxiliares:

datos2$col1b <- ifelse(datos2$col1>datos2$col2, datos2$col2, datos2$col1)
datos2$col2b <- ifelse(datos2$col1>datos2$col2, datos2$col1, datos2$col2)
datos2

 col1 col2 col1b col2b
1    5    7     5     7
2   22    2     2    22
3    9    2     2     9
4   13   34    13    34
5   56   16    16    56
6   11   23    11    23
7   12   23    12    23

Con el dos ifelse() logramos intercambiar los valores entre ambas colunas, solo retaresta eliminar las columnas originales y renombrar las nuevas:

datos2 <- setNames(datos2[, c(3,4)], c('col1', 'col2'))

Otra forma, aunque algo engañosa, por que es un bucle implícito es ordenando por cada fila las dos columnas, aunque aquí terminas con una matriz que deberías reconvertir al data.frame original.

t(apply(datos2[, 1:2], 1, FUN = function(x) sort(x)))

Otra forma, es usar pmax() y pmin() para generar la columna con los máximos y mínimos:

max <- pmax(datos2$col1, datos2$col2)
min <- pmin(datos2$col1, datos2$col2)

datos2$col1 <- min
datos2$col2 <- max

Se puede sin bucles, pero es necesario trabajar con columnas/variables auxiliares:

datos2$col1b <- ifelse(datos2$col1>datos2$col2, datos2$col2, datos2$col1)
datos2$col2b <- ifelse(datos2$col1>datos2$col2, datos2$col1, datos2$col2)
datos2

 col1 col2 col1b col2b
1    5    7     5     7
2   22    2     2    22
3    9    2     2     9
4   13   34    13    34
5   56   16    16    56
6   11   23    11    23
7   12   23    12    23

Con el dos ifelse() logramos intercambiar los valores entre ambas colunas, solo reta eliminar las columnas originales y renombrar las nuevas:

datos2 <- setNames(datos2[, c(3,4)], c('col1', 'col2'))

Otra forma, aunque algo engañosa, por que es un bucle implícito es ordenando por cada fila las dos columnas, aunque aquí terminas con una matriz que deberías reconvertir al data.frame original.

t(apply(datos2[, 1:2], 1, FUN = function(x) sort(x)))

Se puede sin bucles, pero es necesario trabajar con columnas/variables auxiliares:

datos2$col1b <- ifelse(datos2$col1>datos2$col2, datos2$col2, datos2$col1)
datos2$col2b <- ifelse(datos2$col1>datos2$col2, datos2$col1, datos2$col2)
datos2

 col1 col2 col1b col2b
1    5    7     5     7
2   22    2     2    22
3    9    2     2     9
4   13   34    13    34
5   56   16    16    56
6   11   23    11    23
7   12   23    12    23

Con el dos ifelse() logramos intercambiar los valores entre ambas colunas, solo resta eliminar las columnas originales y renombrar las nuevas:

datos2 <- setNames(datos2[, c(3,4)], c('col1', 'col2'))

Otra forma, aunque algo engañosa, por que es un bucle implícito es ordenando por cada fila las dos columnas, aunque aquí terminas con una matriz que deberías reconvertir al data.frame original.

t(apply(datos2[, 1:2], 1, FUN = function(x) sort(x)))

Otra forma, es usar pmax() y pmin() para generar la columna con los máximos y mínimos:

max <- pmax(datos2$col1, datos2$col2)
min <- pmin(datos2$col1, datos2$col2)

datos2$col1 <- min
datos2$col2 <- max
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Se puede sin bucles, pero es necesario trabajar con columnas/variables auxiliares:

datos2$col1b <- ifelse(datos2$col1>datos2$col2, datos2$col2, datos2$col1)
datos2$col2b <- ifelse(datos2$col1>datos2$col2, datos2$col1, datos2$col2)
datos2

 col1 col2 col1b col2b
1    5    7     5     7
2   22    2     2    22
3    9    2     2     9
4   13   34    13    34
5   56   16    16    56
6   11   23    11    23
7   12   23    12    23

Con el dos ifelse() logramos intercambiar los valores entre ambas colunas, solo reta eliminar las columnas originales y renombrar las nuevas:

datos2 <- setNames(datos2[, c(3,4)], c('col1', 'col2'))

Otra forma, aunque algo engañosa, por que es un bucle implícito es ordenando por cada fila las dos columnas, aunque aquí terminas con una matriz que deberías reconvertir al data.frame original.

t(apply(datos2[, 1:2], 1, FUN = function(x) sort(x)))