if文をデータフレーム要素に適用する

Question

これは私がやろうとしていることです： 1. csvファイル を読み込みます。2.列番号107を作成し、条件に基づいて列67から値をコピーします。あなたは以下のようにベクトル化操作を使用してコードを置き換えることができます

report <- read.csv("C:\\Users\\ha317981\\Desktop\\practice\\input.csv", header=1) 
for(i in 1:length(report[[70]])-1){ 
    if(report[[i, 70]] =="Yes"){ 
     report[[i,107]] <-report[[i, 67]] 
    } 
    i<- i + 1 
    } 

Error: Error in [[.default (col, i, exact = exact) : attempt to select less than one element in get1index

Answer 1

：列70における行の値は「はい」」

コードです。

report[,107] <- ifelse(report[,70] == "Yes", report[,67], NA) 

Answer 2

またifelseとペアdplyrパッケージからmutateを使用することができます。

ドキュメントから：

「変異させるには、新しい変数を追加し、既存の保存し、滴既存の変数を核変換。」

require(dplyr) 
report <- read.csv("C:\\Users\\ha317981\\Desktop\\practice\\input.csv", header=1) 

# mutate(tbl_df, NewColumn = Value, ...) 

newReport <- mutate(report, Col107 = ifelse(Col70 == "Yes", Col67, NA)) 

これは、値が列67またはNAからコピーされますいずれかの列70の値に基づいて、（おそらく？）データフレームに新しい変数を作成します。