एकाधिक स्थितियों से डेटाफ्रेम के कॉलम को मिलान और प्रतिस्थापित करें

Question

चीयर्स, मेरे पास निम्न संरचना के साथ दो डेटा फ्रेम हैं।

DF1: 
Airlines   HeadQ  Date   Cost_Index 
American   PHX  07-31-2016  220 
American   ATL  08-31-2016  150 
American   ATL  10-31-2016  150 
Delta    ATL  10-31-2016  180 
American   ATL  08-31-2017  200 

दूसरा डेटा फ्रेम DF2 निम्नलिखित संरचना है:

DF2: 
Airlines   HeadQ  Date   
American   ATL  09-30-2016 
Delta    ATL  03-31-2017 

अब डेटा के साथ लग रही फ्रेम DF1 और DF2, मैं निम्नलिखित डेटा फ्रेम करने के लिए DF1 को बदलने के लिए चाहते हैं।

DF1: 
Airlines   HeadQ  Date   Cost_Index 
American   PHX  07-31-2016  220 
American   ATL  08-31-2016  0 
American   ATL  10-31-2016  150 
Delta    ATL  10-31-2016  180 
American   ATL  08-31-2017  200 

हालत, है एयरलाइंस और DF2 से DF1 की headq के लिए खोज और अगर DF1 $ तिथि < DF2 $ तिथि तो 0 के रूप में Cost_Index बनाने वरना Cost_Index साथ जारी रखें।

मैंने कोशिश की, लेकिन विफल रहने, साथ:

DF1$Cost_Index <- ifelse(DF1$Airlines == DF2$Airlines & DF1$HeadQ == DF2$HeadQ 
     & DF1$Date < DF2$Date, 0, DF1$Cost_Index) 


Warning: 
1: In DF1$Airlines == DF2$Airlines : longer object 
length is not a multiple of shorter object length". 
2: In<=.default(DF1$Date, DF2$Date) : longer object length is not a 
multiple of shorter object length 

DF1: 
Airlines   HeadQ  Date   Cost_Index 
American   PHX  07-31-2016  220 
American   ATL  08-31-2016  0 
American   ATL  10-31-2016  0 
Delta    ATL  10-31-2016  0 
American   ATL  08-31-2017  200 

किसी को भी सही दिशा करने के लिए मुझसे बात कर सकते हैं?

नोट:

str(DF1$Date): Date, format: "2016-10-31" 
str(DF2$Date): Date, format: "2016-08-31" 

Answer 1

का उपयोग करते हुए इस प्रकार सशर्त सुविधा (1.9.8 के बाद से) मिलती है, मैं यह कर चाहते हैं:

require(data.table) # v1.9.8+ 
# convert to data.tables, and Date column to Date class. 
setDT(df1)[, Date := as.Date(Date, format = "%m-%d-%Y")] 
setDT(df2)[, Date := as.Date(Date, format = "%m-%d-%Y")] 

df1[df2, on = .(Airlines, HeadQ, Date < Date), # find matching rows based on condition 
     Cost_Index := 0L]      # update column with 0 for those rows 

df1 
# Airlines HeadQ  Date Cost_Index 
# 1: American PHX 2016-07-31  220 
# 2: American ATL 2016-08-31   0 
# 3: American ATL 2016-10-31  150 
# 4: Delta ATL 2016-10-31  180