r语言如何用summary语句提取指定几列数据

group_by(merged_data,schid)%>%
summary(merged_data)

     schid      children_present children_inclass teacher_present   school_open     blackboard_inuse Min.   :1111   Min.   : 0.00    Min.   : 0.00    Min.   :0.0000   Min.   :0.0000   Min.   :0.0000   1st Qu.:2341   1st Qu.:11.00    1st Qu.:10.00    1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:1.0000   Median :3411   Median :15.00    Median :14.00    Median :1.0000   Median :1.0000   Median :1.0000   Mean   :3562   Mean   :16.25    Mean   :14.86    Mean   :0.6396   Mean   :0.6804   Mean   :0.8988   3rd Qu.:4541   3rd Qu.:20.00    3rd Qu.:19.00    3rd Qu.:1.0000   3rd Qu.:1.0000   3rd Qu.:1.0000   Max.   :5731   Max.   :83.00    Max.   :75.00    Max.   :1.0000   Max.   :1.0000   Max.   :1.0000                  NA's   :935      NA's   :933                                        NA's   :923   

我只想结果出来children_present children_inclass teacher_present这几列的数据的统计信息，如何提取出来呢。谢谢