如何在每个单个单元格中制作r方程

Question

我有2列不同的尺寸A和B。A

| B

5 | 4
1 | 2
3 |

我怎么说如果Cella为＆lt;然后，Cellb给我Cellb-cella？，因此它计算出：

“ 5（a1）大于4（b1）和2（b2）”，因此没有结果

” 1（A2）小于4（b1）和2（b2）“所以我们有3和1

“ 3（A3）小于4（b1），大于2（b2）”，所以我们有1

结果=（3，1，1）

我最接近的是： 如果（a＆lt; b）{b- a}，

但这仅与相同大​​小的列一起使用，我希望列A的每个单独的单独的单独的单独的单独的单独的单独的单元与B列的每个单独的单元相互作用。那会吗？

Answer 1

由于不同尺寸的列必须是列表而不是data.frame。因此，解决方案：

listAB <- list(A = c(5,1,3) , B = c(4,2))

equ <- function(li){
  result <- vector("numeric")
  for (x in li$A){
    result <- append(result , sapply(li$B , function(y) if(x < y) y - x))
  }
  unlist(result)
}

equ(listAB)
#> [1] 3 1 1

^{在2022-05-29上由 reprex软件包（v2.0.1）}