R - ベクトルからの要素がdata.frameに存在し、そうでない場合、キャンペーンのベクトルを持つ

Question

にダミーの値を追加するかどうかを確認します。

campaignsTypes <- c("Social Media","Distribution","Nurture","Newsletter","Push") 

し、それらに関する情報をdata.frame：

out <- structure(list(Type = c("Distribution", "Newsletter", "Nurture", 
"Social Media"), Pageviews = c(42, 880, 17, 84)), .Names = c("Type", 
"Pageviews"), row.names = c(NA, -4L), class = "data.frame") 

ベクトルcampaignsTypesのすべての要素がdata.frame outに含まれているかどうかをチェックし、そうでない場合は、この欠落しているキャンペーンのダミー値を含む新しい行を作成します。これまでは、campaigngTypeが存在しないかどうかを確認できます。それを行うには

> ifelse(campaignsTypes %in% out$Type == FALSE,rbind(out, c(????,0)),"") 
How to put the value of the missing campaign here?----------⤴ 

Answer 1

次のことができます。しかし、私は手動で挿入された新しい行の最初の列の値としてベクターから存在しない要素を割り当てることに問題を抱えています欠落行を含む新しいデータフレームを作成し、 2つのデータフレームをスタックします。

rbind(out, data.frame(Type=setdiff(campaignsTypes, out$Type), 
         Pageviews=0L)) 

結果：

  Type Pageviews 
1 Distribution  42 
2 Newsletter  880 
3  Nurture  17 
4 Social Media  84 
5   Push   0 

Answer 2

一つの方法、

output <- rbind(out, campaignsTypes[sapply(campaignsTypes, function(i) !(i %in% out$Type))]) 
output$Pageviews[output$Pageviews == output$Type] <- 0 
output 
#   Type Pageviews 
#1 Distribution  42 
#2 Newsletter  880 
#3  Nurture  17 
#4 Social Media  84 
#5   Push   0