求助好心高手的R小程序

╰﹀ヤ埖瓣雨 发表于 2015-12-3 12:20
它也显示出错~然后我就删除了试了试。结果最后一个运行不了

>

data = read.csv('d:\\IF00.csv',header = T)
x = lapply(data[2], strptime,format = '%Y/%m/%d %H:%M')
x = lapply(x, format,'%Y%m%d')
data$sub = as.data.frame(x,ncol = 1)
aa = unique(x[[1]])
subData <- function(data,date)
{
  temp <- subset(data,sub == date)
  temp <- temp[,1:14]
  write.csv(temp,paste(date,'.csv',sep = ''),row.names = F)
}
lapply(aa, subData,data = data)
测试过OK了，最后文档默认保存在了C:\Users\username\Documents下了

藉風說雨 发表于 2015-12-4 11:20
data = read.csv('d:\\IF00.csv',header = T)
x = lapply(data[2], strptime,format = '%Y/%m/%d %H:%M' ...

感谢感谢，真心帮了我大忙。谢谢 谢谢 谢谢