R语言求table对角线