如何按R中的行方差划分数据框行值?