How to display an intersection in a table

Question

I need to complete this section of an R code and am not sure how to do so:

I need to use the functions which() and intersect() and display it as