藉風說雨 发表于 2015-12-1 22:38 
data = read.csv('file_path',header = T)
_date = unique(strsplit(as.character(data[2]),' ')[1])
sub ...
太感谢了。我试了一下，最后一个运行不了。请问是什么回事呀？
> data = read.csv('IF00(最近10个月15分钟数据)(真总数据).csv',header = T)
> date = unique(strsplit(as.character(data[2]),' ')[1])
> sub_date = function(date_str=NA,data = NA)
+ {
+ write_data = subset(data,length(grep(date_str,data[2]))!=0)
+ write.csv(write_data,paste(date_str,'.csv'),row.names = F)
+ }
> sapply(_date,data,sub_date)
错误: unexpected input in "sapply(_"
> sapply(_date,data,sub_date)
错误: unexpected input in "sapply(_"
扫码加好友，拉您进群
全部版块
我的主页
收藏
