一只松鼠怪的博客

需求： 在做模型分类时，将label由字符串转换为数字解决方案： label数据中共有20个label，提取这20个label，每一个换成指定数字解决代码：#--------Numberfystr_to_num<-function(str_list){ num_list<-c(1:20)#可修改为指定数值 chr_list<-unique(Ytrain)#提取la...

需求： 处理数据时常常遇到时间有断开的数据，在与模型做数据的横向对比时需要一致的scale，需要补齐时间。数据长这个样子：其中日期有很多断点，并非每日都有连续。解决方法：创建一个时间连续的df与非连续df融合。解决代码：mergeeee<-function(proc_data){ require(lubridate) #设置日期格式 proc_data$date&l...