Tengo un marco de datos como tal:

    metric1    metric2    metric3 field1 field2
1   1.07809668  4.2569882  7.1710095      L     S1
2   0.56174763  1.2660273 -0.3751915      L     S2
3   1.17447327  5.5186679 11.6868322      L     S2
4   0.32830724 -0.8374830  1.8973718      S     S2
5  -0.51213503 -0.3076640 10.0730274      S     S1
6   0.24133119  2.7984703 15.9622215      S     S1
7   1.96664414  0.1818531  2.7416768      S     S3
8   0.06669409  3.8652075 10.5066330      S     S3
9   1.14660437  8.5703119  3.4294062      L     S4
10 -0.72785683  9.3320762  1.3827989      L     S4

Estoy mostrando 2 campos pero tengo varios más. Necesito sumar las métricas agrupadas por cada campo, p. para el campo 1:

DF %>% group_by(field1) %>% summarise_each(funs(sum),metric1,metric2,metric3)

Puedo hacer esto para cada campo donde las columnas serían sum (metric1), sum (metric2), sum (metric3), pero el resultado de la tabla que necesito es algo como esto:

L(field1) S(field1) S1(field2)  S2(field2) S3(field2)  S4(field2)
sum(metric1)

sum(metric2)

sum(metric3)

Creo que debe haber una manera de hacer esto usando tidyr junto con dplyr, pero no puedo resolverlo