特定のデータフレーム内の値に応じて、データフレームのリスト内に新しい列を作成するにはどうすればよいですか？

Question

私はステーションの名前に基づいてデータフレームのリストを持っている大量のデータセットを持っており、行のチェックアウト名とリターン名に基づいて数値で新しい列を作成したいと考えています。データのサンプルを以下に示します。ReturnKioskNameはその後、カウント値が0でなければなりませんよう

fz$'66th & Center' 
Bike CheckoutKioskName ReturnKioskName 
24583 191  66th & Center 66th & Center 
24584 191  66th & Center 66th & Center 
24585 191  66th & Center 66th & Center 
24586 191  66th & Center 66th & Center 
24587 191  66th & Center 66th & Center 
24588 191  66th & Center 66th & Center 
24589 11  66th & Center 66th & Center 
24590 11  66th & Center 66th & Center 
24591 11  66th & Center 66th & Center 
24592 11  66th & Center 66th & Center' 

私は、CheckoutKioskNameが同じであれば「に基づいて、カウント」という名前の新しい列を作成したいCheckoutKioskNameのISN」の場合リストの値の名前（この場合は '66th & Center'）と同じでなければなりません。最後のオプションは、ReturnKioskNameがリストの値の名前と同じでない場合、カウント値はこれを行う私の試みは、if elseステートメントの下にあります。私は、列が要素であるとき、または列が文字であるときのどちらかを使用するとき、エラーが発生し続ける。

if(test$CheckoutKioskName == test$ReturnKioskName){ 
    test$count <- 0 
}else{ 
    if(test$ReturnKioskName != t){ 
    test$count <- -1 
    }else{ 
    if(test$CheckoutKioskName != t){ 
     test$count <- 1 
    } 
    } 
} 

私は、このタスクを完了するためにlapply使用する方法があると思いたいが、私はここにそれを使用するたびに失敗し続けています。

私は何か助けていただきありがとうございます。

Answer 1

私たちは、私のオリジナルのリストから私の小さな単一のデータフレームのために働くlapply

lapply(names(fz), function(nm) {fz1 <- fz[[nm]] 
    transform(fz1, Count = ifelse(CheckoutKioskName == ReturnKioskName, 0, 
       ifelse(CheckoutKioskName ! = rep(nm, nrow(fz1)), -1, 1)))}) 

Answer 2

どのステートメントを経由して、新しい列にフラグを保存してみてください。私は文字にテストされた列の変換をお勧めしますが、その後それは違いを作る場合、私はあなたのデータを再作成する時間がないので、試すことができませんでした;ように）

test$count[which(test$CheckoutKioskName == test$ReturnKioskName)] <- 0 

...と。トリックをする必要があります。