Podzbiór na podstawie zmiennej nazwa kolumny

Question

Zastanawiam się, jak korzystać z funkcji subset, jeśli nie znam nazwy kolumny, którą chcę przetestować. Scenariusz jest następujący: Mam aplikację Shiny, w której użytkownik może wybrać zmienną, w której ma filtrować (podzbiór) tabelę danych. Otrzymuję nazwę kolumny z webapp jako wejście, a ja chcę do podzbioru na podstawie wartości tej kolumny, tak jak poniżej:

subset(myData, THECOLUMN == someValue) 

wyjątkiem sytuacji, gdy zarówno THECOLUMN i someValue są zmienne. Czy istnieje składnia służąca do podania pożądanej nazwy kolumny jako ciągu znaków?

Wygląda na to, że chcemy mieć bareword będący nazwą kolumny, a nie zmienną zawierającą nazwę kolumny.

Answer 1

To właśnie dlatego subset jest złym narzędziem do niczego innego niż interaktywnej użytku:

d <- data.frame(x = letters[1:5],y = runif(5)) 
> d[d[,'x'] == 'c',] 
    x   y 
3 c 0.3080524 

Zasadniczo wydobywające rzeczy w R jest zbudowany wokół [. Użyj tego.

Answer 2

Zarówno subset, jak i with są przeznaczone do użytku interaktywnego, a na ich stronach pomocy znajdują się ostrzeżenia przed ich użyciem w innych funkcjach. Wynika to z ich strategii argumentów ewaluacyjnych jako wyrażeń w środowisku zbudowanym z nazw ich argumentów danych. Te nazwy kolumn/elementów w przeciwnym razie nie byłyby "obiektami" w rozumieniu R.

Jeśli THECOLUMN to nazwa obiektu, którego wartość jest nazwą kolumny i someValue to nazwa obiektu, którego wartość jest celem, to należy użyć:

dfrm[ dfrm[[THECOLUMN]] == someValue , ] 

fakt, że " [["oceni swój argument, dlaczego jest lepszy od" $ "do programowania. Jeśli użyjemy przykład Jøran za:

d <- data.frame(x = letters[1:5],y = runif(5)) 
THECOLUMN= "x" 
someValue= "c" 

d[ d[[THECOLUMN]] == someValue , ] 
# x   y 
# 3 c 0.7556127 

więc w tym przypadku wszystkie te zwracają ten sam wektor atomowy:

d[[ THECOLUMN ]] 
d[[ 'x' ]] 
d[ , 'x' ] 
d[, THECOLUMN ] 
d$x # of the three extraction functions: `$`, `[[`, and `[`, 
    # only `$` is unable to evaluate its argument 

Answer 3

Myślę, że można użyć następującego jedno-liner:

myData[ , grep(someValue, colnames(myData))] 

gdzie

colnames(myData) 

wyprowadza wektor c ontaining wszystkie nazwy kolumn i

grep(someValue, colnames(myData)) 

powinna wyniki w numerycznej wektora o długości 1 (podana nazwa kolumny jest niepowtarzalny), wskazujący na kolumnie. Zobacz ?grep, aby uzyskać informacje o dopasowywaniu wzorców w R.