Процент по группе с большим количеством столбцов

У меня есть фрейм данных с круглыми 100 столбцами от var1 до var100.

Группирующая переменная — это логическая переменная с двумя возможными значениями: ИСТИНА и ЛОЖЬ.

Что я ищу, так это вычислить процент каждой переменной от 1 до 100 переменных с помощью группирующей переменной, называемой Group, которая является логической переменной только с двумя значениями ИСТИНА и ЛОЖЬ.

Образец

Test_dataframe <- data.frame(Group=c(TRUE,TRUE,TRUE,FALSE,FALSE,FALSE),
                             var1=c(1,0,1,0,1,0),
                             var2=c(0,1,0,1,0,1),
                             var3=c(0,0,0,1,0,1))

Ожидаемый результат:

 Result_dataframe <- data.frame(Group=c(TRUE,FALSE),
+                              var1=c(0.66,0.33),
+                              var2=c(0.33,0.66),
+                              var3=c(0,0.66))

Что я пробовал до сих пор.

Result_dataframe  <-Test_dataframe  %>%  group_by(Group) %>% summarise_each(funs(sum))