（一）循环实现数据对数据框多列排名

pre_list <- cbind(
环比 = c("移网收入日均环比", "移网收入同比",
"移网发展日均环比" , "移网发展同比",
"移网离网日均环比", "移网离网同比"),
排名 = c("收入环比排名", "收入同比排名",
"发展环比排名" , "发展同比排名",
"离网环比排名", "离网同比排名"))
north_ten_r1 <- north_ten_r
north_ten_r1 <- north_ten_r1[1:13]

pm <- as.data.frame(matrix(numeric(0),nrow = 11))
for (i in 1:6){
temp1 <- pre_list[i,2]

print(paste0(temp1,i))

print( rank(eval(parse(text = paste0("north_ten_r$",pre_list[i,1])))))

pm <- cbind(pm,
rank(eval(parse(text = paste0("north_ten_r$",pre_list[i,1])))) )
names(pm) <- pre_list[1:i,2]
}