r - 如何根据特定条件交换 R 中的两列？

Question

我有两列，比如 a 和 b，如果 b 列中的值大于 a 列中的值，我必须交换 a 和 b 的值。

我写了一个函数来在满足条件时交换变量

a     b
110   70
120   80 
80    110 

swap_if<- function (a, b,missing=NA) 
{
  if(b>a)
  {
    a = a + b
    b = a - b
    a = a - b
  }
}  


swap_if(a,b)

输出应该是:

a     b
110   70
120   80 
110   80 

但是我得到一个错误

the condition has length > 1 and only the first element will be used

Answer 1

如果只有 2 列，pmin 和 pmax 是你的 friend 。

temp_min = pmin(df$a, df$b)
df$a = pmax(df$a, df$b)
df$b = temp_min

如果超过 2 列，则应用排序的缩放比例更好。