dplyr обобщать над вложенной group_by

У меня есть кадр данных, как это:dplyr обобщать над вложенной group_by

 Date Amount Category 
1 02.07.15  1  1 
2 02.07.15  2  1 
3 02.07.15  3  1 
4 02.07.15  4  2 
5 03.07.15  5  2 
6 04.07.15  6  3 
7 05.07.15  7  3 
8 06.07.15  8  3 
9 07.07.15  9  4 
10 08.07.15  10  5 
11 09.07.15  11  6 
12 10.07.15  12  4 
13 11.07.15  13  4 
14 12.07.15  14  5 
15 13.07.15  15  5 
16 14.07.15  16  6 
17 15.07.15  17  6 
18 16.07.15  18  5 
19 17.07.15  19  4

Я хотел бы вычислить сумму суммы для каждого отдельного дня в категории. Мои попытки, подобные (см. Код), недостаточны.

summarise(group_by(testData, Category), sum(Amount))

Неправильный выход -> здесь сумма вычисляется по каждой группе

Category sum(Amount) 
1  1   6 
2  2   9 
3  3   21 
4  4   53 
5  5   57 
6  6   44 

summarise(group_by(testData, Date), sum(Amount), categories = toString(Category))

Неправильный выход -> здесь сумма вычисляется по каждый день, но категории не считаются

 Date sum(Amount) categories 
1 02.07.15   10 1, 1, 1, 2 
2 03.07.15   5   2 
3 04.07.15   6   3 
4 05.07.15   7   3 
5 06.07.15   8   3 
6 07.07.15   9   4 
7 08.07.15   10   5 
8 09.07.15   11   6 
9 10.07.15   12   4 
10 11.07.15   13   4 
11 12.07.15   14   5 
12 13.07.15   15   5 
13 14.07.15   16   6 
14 15.07.15   17   6 
15 16.07.15   18   5 
16 17.07.15   19   4

До сих пор мне не удалось объединить оба утверждения. Как я могу вложить выражения group_by для вычисления суммы суммы за каждый отдельный день в каждой категории?

Вложенные группы, как:

подвести итог (group_by (group_by (Testdata, дата), категория), сумма (сумма), даты = ToString (Дата))

Category sum(Amount)         dates 
1  1   6   02.07.15, 02.07.15, 02.07.15 
2  2   9      02.07.15, 03.07.15 
3  3   21   04.07.15, 05.07.15, 06.07.15 
4  4   53 07.07.15, 10.07.15, 11.07.15, 17.07.15 
5  5   57 08.07.15, 12.07.15, 13.07.15, 16.07.15 
6  6   44   09.07.15, 14.07.15, 15.07.15

не работает предназначена.

Я слышал dplyr - summarise weighted datasummarise_each, но не мог заставить его работать:

summarise_each(testData, funs(Category)) 
Error could not find function Category

источник

2015-07-02 Georg Heiler

спасибо большое Ваш комментарий решение –

Вы можете попробовать

testData %>% 
     group_by(Date,Category) %>% 
     summarise(Amount= sum(Amount))

источник

2015-07-02 07:36:45 akrun

dplyr обобщать над вложенной group_by

ответ

Смежные вопросы