怎么用R进行分层抽样