求助好心高手的R小程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

最近要写论文，不太会数据编程。有一个EXCEL，里面存取了不同日期的数据，现在想把每一天的分出来，单独形成一个excel。有没有谁编过这样的R程序？
求助啊

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：小程序 EXCEL exce xcel cel excel EXCEL 程序 论文

一定要用R软件吗？可以用excel的筛选功能，选择不同的日期直接另存为，或者用excel VBA编程来实现，如果不介意可以上传数据文件我帮你写一下。

可以用R语言的subset()函数，非常简单的一句代码就能实现

VBA 就可以解决的事情啊！

或者用免费的excel插件也可以吧

kamaduoluo 发表于 2015-11-28 17:09
可以用R语言的subset()函数，非常简单的一句代码就能实现

请问里面怎么写判断条件啊

data = read.csv('file_path',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)
自己测试下吧

藉風說雨 发表于 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(_"

╰﹀ヤ埖瓣雨 发表于 2015-12-2 15:00
太感谢了。我试了一下，最后一个运行不了。请问是什么回事呀？

> data = read.csv('IF00(最近10个月15 ...

你贴个样本数据我测试下，数据直接发我邮箱NikuPies@aliyun.com

╰﹀ヤ埖瓣雨 发表于 2015-12-2 15:00
太感谢了。我试了一下，最后一个运行不了。请问是什么回事呀？

> data = read.csv('IF00(最近10个月15 ...

代码第二行_data<-  

璋瑜 发表于 2015-12-2 22:42
代码第二行_data

它也显示出错~然后我就删除了试了试。结果最后一个运行不了

>
> data = read.csv('IF00(最近10个月15分钟数据)(真总数据).csv',header = T)
> _date = unique(strsplit(as.character(data[2]),' ')[1])
错误: unexpected input in "_"