r语言实现按比例分层抽样