R删除NA较多的行列