如果分组类别中特定列的值不同,则删除数据帧的行

我有一个巨大的数据帧,但这里有一个非常简单的示例:

df <- data.frame(Id=c(rep("Mike",8)), Year=c(rep("2015",2),rep("2016",3),
             rep("2017",3)),location=c(rep("A",2),rep("B",3),"D","E","E"))
df
    #  Id   Year location
    #1 Mike 2015        A
    #2 Mike 2015        A
    #3 Mike 2016        B
    #4 Mike 2016        B
    #5 Mike 2016        B
    #6 Mike 2017        D
    #7 Mike 2017        E
    #8 Mike 2017        E

我的分组标准是 Id 和 Year ,因此对于特定的组(例如,Mike 2017),有许多行。我想删除组中“位置”因子不完全相等的所有行。

在这种情况下,并非所有地点都相同的唯一一组是“Mike 2017”。然后,我想得到这样一个数据帧:

#    Id Year location
#1 Mike 2015        A
#2 Mike 2015        A
#3 Mike 2016        B
#4 Mike 2016        B
#5 Mike 2016        B

有没有办法通过指明上述分组标准和排除标准来做到这一点?