Условно извлекать в список значения переменных, которые появляются во всех столбцах

Question

Учитывая пример данных sampleDT ниже, я был бы признателен за любую помощь в создании функции, которая позволяет мне условно извлекать в список без повторения значения переменных, которые появляются во всех столбцах - по крайней мере, один раз появляются в каждом из столбцовнезависимо от должности.

# sample data
sampleDT<-structure(list(V2 = c(5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), 
    V3 = c(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 2), .indices = c(6, 
    7, 8, 9, 10, 11, 12, 13, 14, 15, 16), .indices3 = c(1, 2, 
    3, 4, 5, 6, 7, 8, 9, 10, 11)), row.names = c(NA, -11L), class = "data.frame")

Заранее благодарим за любую помощь.

Answer 1

Reduce(f = intersect, x = sampleDT)
[1]  6  7  8  9 10 11

Используйте операцию intersect set для всех столбцов.

Reduce - хороший способ написать intersect(intersect(sampleDT[[1]], sampleDT[[2]]), sampleDT[[3]]), ...))