R语言降维——非负矩阵分解（NMF包的实现）