使用dply的均值和sds表

Question

有没有一种方法可以打印出分组的均值和使用R中的dplyr的sds (即，人们将在许多随机对照试验报告中观察到的情况，其中报告了安慰剂和药物武器的基线人口统计数据)。目前我有：

group_summary<- df %>% 
  group_by(group) %>% 
  summarise_at( vars(age, iq), c(mean, sd), na.rm=TRUE)

t(group_summary)

它将sds放在means下：

                                [,1]       [,2]       [,3]        
group                           "drug1"     "drug2"       "placebo"
age (x, ...) ...             "22.72436" "25.06164" "23.54394"  
weight (x, ...) ...           "57.97143" NA         "64.66667"  
age (x, na.rm = FALSE) ...   "3.793276" "3.930634" "4.623405"  
weight (x, na.rm = FALSE) ... "16.03617" NA         "15.44099"  

当理想情况下，我想要的是更像这样的东西：

                            [,1]       [,2]       [,3]        
group                           "drug1"     "drug2"       "placebo"
age (x, ...) ...             "22.7(3.8)" "25.1(3.9)" "23.5(4.6)"  
weight (x, ...) ...           "56.0(16.0)" NA         "64.7(15.4)" 

感谢您的建议，不过如果可能的话，最好是使用tidyverse方法。