如何在R的另一列中仅对具有多个不同值的行进行子集化？

我有一个类似于下面的数据集：

zz <-  "Session    Rater     
1          A         X          
2          A         X     
3          A         X   
4          B         Y   
5          B         Y     
6          B         Z   
7          B         Z         
8          C         X   
9          C         Y    
10         C         Z"

Data <- read.table(text=zz, header = TRUE)

我只想对会话具有多个评估者的会话行进行子集化，即使该数据存储在另一列中也是如此。因此，我想得到一个看起来像这样的数据集：

zz2 <-  "Session    Rater     
1          B         Y
2          B         Y
3          B         Z
4          B         Z
5          C         X
6          C         Y
7          C         Z"

Data2 <- read.table(text=zz2, header = TRUE)

由于会话A仅具有一个评估者“ X”而从数据集中删除了会话A的行，但由于会话B和C（以及它们的所有行）具有多个评估者（会话B的Y和Z，以及会话C的X，Y和Z）。

我玩过dplyr，但没有成功。非常感谢。