这个怎么用R语言实现呢