R: subset() возвращает разные результаты для эквивалентных логических выражений

Question

При написании удобных функций для subset() я столкнулся с странной ситуацией, когда использование эквивалентных логических операторов возвращает разные подмножества. Так, например:

dat = data.frame(ttl.stims = c(4,4,8,8), change = c('big', 'small')) 
dat 
ttl.stims = 4 

#logical statements are equivalent 
dat$ttl.stims == 4 
dat$ttl.stims == ttl.stims 

#subset evaluates differently 
subset(dat, dat$ttl.stims == 4) 
subset(dat, dat$ttl.stims == ttl.stims) 

Я работал вокруг этого дела:

index = dat$ttl.stims == ttl.stims 
subset(dat, index) 

Но я так любопытно, почему первые два подмножества не дают одинаковые результаты! Идеи? Мысли? Pontifications?

Answer 1

Потому что внутри вызова subset символ ttl.stims получает интерпретируется в среде dat, так что он становится (после интерпретации) dat$ttl.stims. Я предсказываю, что второй вызов подмножества возвращает весь фрейм данных.