基于匹配值的子集数据帧

Question

我有一个名为DATA的10x2数据框，其中一列包含价格和其他日期。我有一个名为KeyDates的日期向量，其中包含两个关键日期。

DATA <- structure(list(Prices = c(1245.7, 1244.4, 1244.8, 1247.2, 1241.4,1241.1, 1239.3, 1240.9, 1239.6, 1234.6), Dates = structure(15156:15165, class = "Date")), .Names = c("Prices","Dates"), row.names = c(NA, 10L), class = "data.frame") 
KeyDates <- structure(15159:15160, class = "Date") 

#DATA Output:
Prices      Dates
1  1245.7 2011-07-01
2  1244.4 2011-07-02
3  1244.8 2011-07-03
4  1247.2 2011-07-04
5  1241.4 2011-07-05
6  1241.1 2011-07-06
7  1239.3 2011-07-07
8  1240.9 2011-07-08
9  1239.6 2011-07-09
10 1234.6 2011-07-10

#KeyDates Output:
[1] 2011-07-04 2011-07-05

我想匹配DATA和KeyDates，并创建一个包含的新数据帧SUBSET 匹配日期的价格和日期。

#desired output for SUBSET:
Prices      Dates
1  1247.2 2011-07-04
2  1241.4 2011-07-05 

我怎么能实现这一目标？

这是一个简化的例子。实际上，我会在几十年的时间里运行这个。非常感谢你。

编辑：@David Arenburg这个问题的答案确实出现在R function for testing if a vector contains a given element中，但问题却有所不同。很可能这个问题与其他问题重复，但它不是你标记为副本的问题。