Is there a better way to combine these dataframes and match values?

Question

I have two dataframes that I have combined using left_join()

data1 can be simplified to something like...

Date <- as.Date(c(\'2011-7-26\',\