列の同じ値を持つすべての行を行の1つとして抽出するにはどうすればよいですか？

Question

私はnameとclassを含むdata.tableを持っています。各nameは、classに属します。ここにサンプルデータセットを示します。

library(data.table) 
DT <- data.table(name = c("John","Smith","Jane","Ruby","Emerald","Jasmine","Tulip"), 
       class = c(1,2,3)) 

特定の人物と同じクラスに属するすべての名前を取得したいとします（たとえば、John）。私は彼の名前は私が事前にgrepを行うデータセットにどのように表示されるかを正確に知っているし、この得ることはありません：

DT[class %in% DT[name %in% grep("john", DT[, name], ignore.case = T, value = T), class], 
    name] 

%in%をジョンという名前の複数の人が存在する場合、私はそれらすべてをキャッチすることを確認することです。おそらく参加を使用して、これを行うためにきれいな方法はありますか？

編集：私は正確に名前を知っていたし、それは一度だけ発生した場合は、上記の私が探している何

DT[class == DT[name == "John", class], name] 

に圧縮しますが、私が行うことができます「チェーン」ソリューション、のようなものですそれは優しくないように見えます。

私が探していたもの@Frank、によって示唆されるように

Answer 1

、また

DT[.(class[name %like% "John"]), on=.(class), name] 

は、@ RonakShahの回答に基づいて、これは動作します。

DT[class == class[name %like% "John"])] 

リストはこのように索引付けすることができます。