私は列を追加したいAとXに基づいてconditionsいることをif結果はgreater than zero集計結果を使用し、otherwiseそれを作りますzero。これが私のコードです
library(tidyverse)
library(set.seed(1500)
FakeData <- data.frame(A = runif(20,-5,20), X = runif(20,0,22))
FakeData$sum <- if (sum(FakeData$A+FakeData$X) < 0){
0
} else {
sum(FakeData$A+FakeData$X
}
私たちは、使用することができますpmaxの中でbase R。もっと速いはずです
FakeData$Sum <- with(FakeData, pmax(0, A + X))
if/elseベクトル化されていません。代わりに使用するifelse
FakeData$Sum <- with(FakeData, ifelse(A + X < 0, 0, A + X))
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加