как преобразовать dplyr :: резюме в dplyr :: сделать

Question

У меня есть следующий кадр данных:

label target sale 
    low 5000 4000 
    low 11000 9000 
    low 5500 4500 
    low 12000 9500 
middle 20000 18000 
middle 22000 190000 
    high 100000 90000 
    high 120000 95000 

Мне нужен первая группа моего кадр данных по метке, а затем вычислить: средний (целевой - продажа) только для строк, где цель составляет более 10000, я попытался следующий код:

library(dplyr) 
avg_increase <- df %>% 
        group_by(labels) %>% 
        summarise(avg_sale_increase = ifelse(target >= 10000,mean(target - sale), 0)) 

и я получаю следующее сообщение об ошибке:

Error: expecting a single value

в summarise возвращает только одно значение, должен ли я изменить свой код, используя deployer::do (или любое другое предложение) для выполнения задачи.

Answer 1

Проблема с IfElse, который возвращает вектор, если длина равна вход логического, так что среднее значение будет рассчитываться столько раз, сколько требуется.

Это должно работать

avg_increase <- df %>% 
       group_by(labels) %>% 
       filter(target >= 10000) %>% 
       summarise(target = mean(target-sale)) 

Answer 2

Вы можете фильтровать строки> 10000 bevor, группируя переменную.

dat %>% filter(target>10000) %>% 
    group_by(label) %>% mutate(differ = mean(target-sale))