複数の列を使った操作

Question

他の列の条件に応じて、他の列の値を使用してデータフレームにフィールドを追加しようとしています。

df <- data.frame(condition= c("startBin>7 & startBin<=12 & endBin>25 & endBin<=30","(startBin<=7 | startBin>12) & (endBin<=25 | endBin>30)","(startBin>7 & startBin<=12) & (endBin<=25 | endBin>30)","(startBin<=7 | startBin>12) & endBin>25 & endBin<=30"), 
          startBin = c(1,1,1,1), endBin = c(26,26,26,26), exprTemp=c("One","Two","Three","Four")) 

「条件」列の条件が満たされている場合は、値「1」の列「チェック」を作成します。チェックの値が条件が真である最後のレコードのための1であることを

df <- data.frame(condition= c("startBin>7 & startBin<=12 & endBin>25 & endBin<=30","(startBin<=7 | startBin>12) & (endBin<=25 | endBin>30)","(startBin>7 & startBin<=12) & (endBin<=25 | endBin>30)","(startBin<=7 | startBin>12) & endBin>25 & endBin<=30"), 
          startBin = c(1,1,1,1), endBin = c(26,26,26,26), exprTemp=c("One","Two","Three","Four"), check=c(0,0,0,1)) 

注：このように、私はのように更新データフレームをしたいです。

私は次のことを試してみました：

df$check <- eval(parse(text=paste0("ifelse(",df$condition,",1, '')",sep="")),df) 

が、evalは最後の条件を評価するように、すべての行= 1小切手を返しました。

Answer 1

このコードを試してください：

df <- data.frame(startBin = c(1,1,1,1), endBin = c(26,26,26,26), exprTemp=c("One","Two","Three","Four")) 

condition= c("startBin>7 & startBin<=12 & endBin>25 & endBin<=30","(startBin<=7 | startBin>12) & (endBin<=25 | endBin>30)","(startBin>7 & startBin<=12) & (endBin<=25 | endBin>30)","(startBin<=7 | startBin>12) & endBin>25 & endBin<=30") 
parsedcond=(parse(text = condition)) 

newcol=logical(nrow(df)) 
for(i in 1:nrow(df)) 
newcol[i] <- with(df, eval(parsedcond[i]))[i] 

    df <- data.frame(df, newcol) 
> df 
    startBin endBin exprTemp newcol 
1  1  26  One FALSE 
2  1  26  Two FALSE 
3  1  26 Three FALSE 
4  1  26  Four TRUE