mean + -dd data.frameを作成するには？

Question

私はcreate（mean±sd）形式を希望します。以下
は一例であり、コード

a=c("type","A","B","C") 
b=c("a","a","b","b") 
c=c(22, 32, 23, 20) 
d=c(12,25,23,30) 
e=c(15,17,23,35) 
f=data.frame(b,c,d,e) 
colnames(f)=a 

新しいテーブルコンポーネントが±SDタイプによってであることを意味します。このような
は...

type A B C 
a mean ± sd .. mean ± sd 
b mean ± sd .. mean ± sd 

'タイプ' によってグループ我々はできる

Answer 1

に私を助けるとsummarise_allを使用してください。我々はmeanを加算および減算したいと仮定するとsdとGETまとめ列は

は

library(dplyr) 
f %>% 
    group_by(type) %>% 
    summarise_all(funs(mean(.) + round(sd(.), 2), mean(.)- round(sd(.), 2))) 
# A tibble: 2 x 7 
# type `A_+` `B_+` `C_+` `A_-` `B_-` `C_-` 
# <fctr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> 
#1  a 34.07 27.69 17.41 19.93 9.31 14.59 
#2  b 23.62 31.45 37.49 19.38 21.55 20.51 

---

を、これはcharacterクラスとして必要とされている場合は

f %>% 
    group_by(type) %>% 
    summarise_all(funs(paste(mean(.), round(sd(.), 2), sep=" ± "))) 
# A tibble: 2 x 4 
# type   A   B   C 
# <fctr>  <chr>  <chr>  <chr> 
#1  a 27 ± 7.07 18.5 ± 9.19 16 ± 1.41 
#2  b 21.5 ± 2.12 26.5 ± 4.95 29 ± 8.49