Dplyr select() - нужна проблема с числовыми данными

Question

У меня возникла интересная проблема при вычислении среднего/медиана подмножества столбца в кадре данных при условии условия.

На данный момент, мне не нужен совет, но думал, что эта проблема будет интересно поделиться: (.) ​​

testFile <- data.frame(
    ID = 1:10, Value = rnorm(10), 
    Condition = sample(c("Yes", "No"), 10, replace = T) 
) 
median1 <- median(testFile[testFile$Condition == "Yes", ]$Value) 
median2 <- testFile %>% 
    filter(Condition == "Yes") %>% 
    select(Value) %>% 
    median 

Ошибка в median.default: нужны числовые данные

Однако следующий код работает:

max2 <- testFile %>% 
    filter(Condition == "Yes") %>% 
    select(Value) %>% 
    max 

values <- testFile %>% 
    filter(Condition == "Yes") %>% 
    select(Value) 

class(values[2,1]) 

[1] "цифровое"

Answer 1

Решения от результата dplyr использования unlist:

median3 <- testFile %>% filter(Condition == "Yes") %>% select(Value) %>% unlist %>% median 

решения Non-dplyr, как уже было mentioined в OP:

> median1 <- median(testFile[testFile$Condition == "Yes", ]$Value) # Working