R语言 卡方检验消除异质性