```
library(data.table)
file_path="xxx.csv"
data=fread(file_path, header=FALSE)
# 添加表头
print(class(data))
print(ncol(sample_data)==3){
colnames(data=c("due_no", "issu_dt","loan_typ","wrof_dt","cust_id","loan_term","overdue_flg",
"loan_grd","dcflag","od_days", "srep_dt", "plan_bal","yslx","pd_stage","pd_power","ead_bal","ead_yslx",
"cert_no","prd_group","curr_od_days","his_max_od_days","warnflag","od_months","pd_pos",
"pd_base","pd_neg","pd_org","pd_pit_pos","pd_pit_base","pd_pit_neg","pd_pit_org","lgd_pos",
"lgd_base","lgd_neg","lgd_org","ecl_pos_bal","ecl_base_bal","ecl_neg_bal",
"ecl_org_bal","ecl_pos_yslx","ecl_base_yslx","ecl_neg_yslx","ecl_org_yslx",
"sum_ecl_bal","sum_ecl_yslx","stac_dt","hdsdate"))} else{stop("不一致")}
colnames(data) <- c("due_no", "issu_dt","loan_typ","wrof_dt","cust_id","loan_term","overdue_flg",
"loan_grd","dcflag","od_days", "srep_dt", "plan_bal","yslx","pd_stage","pd_power","ead_bal","ead_yslx",
"cert_no","prd_group","curr_od_days","his_max_od_days","warnflag","od_months","pd_pos",
"pd_base","pd_neg","pd_org","pd_pit_pos","pd_pit_base","pd_pit_neg","pd_pit_org","lgd_pos",
"lgd_base","lgd_neg","lgd_org","ecl_pos_bal","ecl_base_bal","ecl_neg_bal",
"ecl_org_bal","ecl_pos_yslx","ecl_base_yslx","ecl_neg_yslx","ecl_org_yslx",
"sum_ecl_bal","sum_ecl_yslx","stac_dt","hdsdate")
saveRDS(data, "xxx.rds")
file_path2="app_fxd_i9_loan_pd_bmw_v01.rds"
data2=fread(file_path2)```R显示:Warning messages:
1: In fread(file_path2) :
检测到 1 个列名,然而数据共有 2 列(文件不合法)。添加了 1 个额外列名作为第一列,并被用于猜测行名或索引。若上述猜测不正确,可在后续使用setnames()进行修改,或修复用于生成该文件的文件写入命令以生成有效的文件。
2: In fread(file_path2) : Stopped early on line 12. Expected 2 fields but found 1. Consider fill=TRUE and comment.char=. First discarded non-empty line: <<?W?梒籨8蒊靫龙r髐{9FT蟴轰閳r端?>
最新发布