R实战-制表补齐列名

miss_char_l <- setdiff(c("单位","推送量","点击量","竣工量","转化率","沃家组网","乐万家剔0元产品","乐万家0元产品",
"发展5G","更换终端","提速包"),names(temp_table))
if(length(miss_char_l)>0){
for (k in (1:length(miss_char_l))){
temp_table[,miss_char_l[k] := 0] }} # 补齐列名