複数のifelseを追加して、列として追加するベクトルを作成する

Question

data.frameの各行をチェックする関数を書いています。チェックは、YESまたはNOを出力する条件文です。非常にストレートでなければなりません。しかし、どういうわけか結果は意図されたものではありません。私は2つの異なる方法を試みました。

ここではいくつかのテストデータを見つけてください：TEST TABLE

add_accepted_column <- function(df){ 
    shopmanager_status <- df[28] 
    source_medium <- df[22] 
    campaign <- df[23] 
    click_to_conversion <- df[29] 
    accepted <- c() 
    if(shopmanager_status %in% c("complete","processing") & source_medium %in% c("tradetracker/nl", "google/organic", "bing/organic", "yahoo/organic")){ 
     accepted <- c(accepted,"YES") 
    } 
    else if(shopmanager_status %in% c("complete","processing") & click_to_conversion < 1){ 
    accepted <- c(accepted,"YES") 
    } 
    else if(shopmanager_status %in% c("complete","processing") & campaign %in% c("1.Top-Brand")){ 
    accepted <- c(accepted,"YES") 
    } else{ 
    accepted <- c(accepted,"NO") 
    } 
} 

# 
add_accepted_column <- function(df){ 
    shopmanager_status <- df[28] 
    source_medium <- df[22] 
    campaign <- df[23] 
    click_to_conversion <- df[29] 
    #print(class(click_to_conversion)) 
    accepted <- c() 
    accepted <- c(accepted,if_else(shopmanager_status %in% c("complete","processing") & 
        source_medium %in% c("tradetracker/nl", "google/organic", "bing/organic", "yahoo/organic") || 
        click_to_conversion < 1 || 
        campaign %in% c("1.Top-Brand"),"YES","NO")) 
    return(accepted) 
} 

たとえばgoogle/cpcのために私にYESを与えるというスーパー奇妙です。

私が適用する実際のルール：

•shopmanager_status IN（ "完全"、 "処理"）AND（ "tradetracker/NL"、 "有機/グーグル"、「ビング/ IN（source_medium IF IF有機」、 "ヤフー/オーガニック"） - > YES

•shopmanager_status IN（IF "完全"、 "処理"）AND（click_to_conversion < 1）IF - shopmanager_status IN（IF> YES

• "完了"、 "処理中（キャンペーンIN（1.Top-Brand"） - > YES

•REST - > NO

もっと多くの例が必要な場合は、喜んで提供してください。どういうわけか、IF ELSEステートメントで何が起こっているのかわかりません。

Answer 1

Iは、警告メッセージを取得

df$accepted <- df$shopmanager_transaction_status %in% c("complete","processing") & 
    (df$sourceMedium %in% c("tradetracker/nl", "google/organic", 
          "bing/organic", "yahoo/organic") | 
    df$click_to_conversion_date < 1 | df$campaign == "1.Top-Brand")