R语言做Pearson’s χ 2