他の3つの列の値に基づいてR列の値を設定します

Question

RからエクスポートしてSegment列をExcelに手動で追加した後、このような生データがあります。

生データは、私は私のためにセグメントを追加しますRのコードを書きたいエクセル

に引っ張りました。

データ記述...ように

ID: Random distinct numbers 
flag: Yes or No 
Period: 0-12 Mths or 12-24 Mths 
Spend Group: High, Medium or Low 

ルール...

Flag = Yes 
Period = 0-12 Mths 
Spend Group = High 
Then Segment = G01 

Flag = Yes 
Period = 0-12 Mths 
Spend Group = Medium 
Then Segment = G02 

Flag = Yes 
Period = 0-12 Mths 
Spend Group = Low 
Then Segment = G03 

Flag = Yes 
Period = 12-24 Mths 
Spend Group = High 
Then Segment = G04 

...と変数のすべてが

計上されるまで、私はコードをしたいですデータが処理されるたびに差を認識するようにします。たとえば、フラグは常にYesまたはNoになるとは限りません。すべての行でYesになることがあります。

要約した完全なデータセットは、次の図のようになります。

まとめたデータは、

はどのようにRでこれをコーディングを開始しますか？

Answer 1

私は急いでいました。申し訳ありませんが、私はあなたのルールをcsvで（またはちょうどデータフレームとして定義しておくことをお勧めしますが、csvを変更するつもりなら、 ）、それらを以下のような別個のdata.frameとして読み込みます。これにより、各組み合わせに割り当てるセグメントに、フラグ、期間、費用の各組み合わせを設定します。 （COLNAMES "Unique.ID"、 "フラグ"、 "期間"、 "spend_group" で）データを仮定

"が、 "フラグ"、 "期間" とDF

library(dplyr) 
df_withSegment <- left_join(df, rules) 

であるspend_group "は共通名のすべての列であり、これらの3つの列の各組み合わせにルール内のセグメントの値を割り当てます。

ルール（CSVまたはRから）例えばデータフレーム

Answer 2

私は4段階のifelse()でやっています。

あなたは、4つのサブセットFlag == "yes" & Recency == "0-12 Mths"以内にあなたのデータを参照Flag == "yes" & Recency == "12-24 Mths"、Flag == "no" & Recency == "0-12 Mths"とFlag == "no" & Recency == "12-24 Mths"とifelse()通話起動します。

mydata$Segment[mydata$Flag == "yes" & mydata$Recency == "0-12 Mths"] <- with(mydata[mydata$Flag == "yes" & mydata$Recency == "0-12 Mths", ], 
    ifelse(Spend Band == "High", "G01", 
    ifelse(Spend Band == "Medium", "G02", "G03"))) 

mydata$Segment[mydata$Flag == "yes" & mydata$Recency == "12-24 Mths"] <- with(mydata[mydata$Flag == "yes" & mydata$Recency == "12-24 Mths", ], 
    ifelse(Spend Band == "High", "G04", 
    ifelse(Spend Band == "Medium", "G05", "G06"))) 

mydata$Segment[mydata$Flag == "no" & mydata$Recency == "0-12 Mths"] <- with(mydata[mydata$Flag == "no" & mydata$Recency == "0-12 Mths", ], 
    ifelse(Spend Band == "High", "G07", 
    ifelse(Spend Band == "Medium", "G08", "G09"))) 

mydata$Segment[mydata$Flag == "no" & mydata$Recency == "12-24 Mths"] <- with(mydata[mydata$Flag == "no" & mydata$Recency == "12-24 Mths", ], 
    ifelse(Spend Band == "High", "G10", 
    ifelse(Spend Band == "Medium", "G11", "G12"))) 

をSpend BandはRで実行可能な変数名ではないとしてあなたは、変数名を変更する必要がありますし、したがって、あなたの名前はSpend_Bandなどと似ています。

Answer 3

私の頭の上にマージは正しい方法のようです。

combine = merge（raw_data、summary_data、by.x = c（ "フラグ"、 "期間"、 "支出グループ"）、by.y = c（ "フラグ"、 "最新の"、 "費やし"））