我有 2 列不同大小的列，A 和 B。
一個 | 乙
5 | 4
1 | 2
3 |
怎么說If CellA is < CellB then give me 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)
我得到的最接近的是：
if (A < B) {B - A}
但這僅適用于相同大小的列，我希望 A 列的每個單獨的單元格與 B 列的每個單獨的單元格互動。我該怎么做？
uj5u.com熱心網友回復：
由于不同大小的列，所以它必須是 list 而不是 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
由reprex 包于 2022-05-29 創建(v2.0.1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/483645.html