乱成一堆的修改，想想最后还是想弄成非topTable的因子分析型
Merge remote-tracking branch 'R_scripts/master'