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