Utiliser mécanisme de sélection comme pour sélectionner des variables pour appel distinctes dans dplyr

Question

Les résultats souhaités

Utilisation de la syntaxe simple que je filtre sur vs et am colonnes laissant également les valeurs cyl.

data(mtcars) 
dta <- mtcars[,c("vs", "am", "cyl")] 
# Desired results 
dta %>% distinct(vs, am, .keep_all = TRUE) 

syntaxe souhaitée

Je voudrais inverser la syntaxe ci-dessus et sélectionnez observations distinctes sur toutes les valeurs sauf la colonne cyl, correspondant à l'exemple ci-dessous:

dta %>% distinct(vars(-contains("cyl")), .keep_all = TRUE) 

qui naturellement ne fonctionne pas:

>> dta %>% distinct(vars(-contains("cyl")), .keep_all = TRUE) 
    vs am cyl vars(-contains("cyl")) 
1 0 1 6  ~-contains("cyl") 
2 0 1 6  ~-contains("cyl") 
3 1 1 4  ~-contains("cyl") 
4 1 0 6  ~-contains("cyl") 
5 0 0 8  ~-contains("cyl") 
6 1 0 6  ~-contains("cyl") 
7 0 0 8  ~-contains("cyl") 

Answer 1

Si cela ne vous dérange pas ne pas utiliser distinct, alors vous pouvez utiliser group_by_at avec slice pour obtenir le résultat souhaité, c'est-à-dire.

library(dplyr) 

dta %>% 
group_by_at(vars(-cyl)) %>% 
slice(1L) 

# A tibble: 4 x 3 
# Groups: vs, am [4] 
#  vs am cyl 
# <dbl> <dbl> <dbl> 
#1  0  0  8 
#2  0  1  6 
#3  1  0  6 
#4  1  1  4