一个很简单的R应用问题~

asprine 发表于 2014-5-18 14:00
这不是R program上的作业么，今天截止那。

asprine 发表于 2014-5-18 14:40

您好，我也在编写这道题目，但是我在设置目录时如果不用双引号R就无法识别指定目录，但用双引号后就无法进行变量赋值。请问该如何破？

Yuhang0128 发表于 2015-1-26 14:17
您好，我也在编写这道题目，但是我在设置目录时如果不用双引号R就无法识别指定目录，但用双引号后就无法进 ...

有code不

asprine 发表于 2014-5-18 20:41
两个思路吧：
#1
这个用法当id一数组c（2,4,8,10,12）时报错的，按你的思路，建议可以检查ID是否在id的 ...

complete<- function(directory,id=1:332){
    files_list <- dir(directory, full.names=T)[id]
    data_list<-lapply(files_list,read.csv)
    nobs<-sapply(lapply(data_list,complete.cases),sum)
    return (cbind(id,nobs)) }

使用这组代码一直报错：错误于cc$nobs : $ operator is invalid for atomic vectors
求教~~~

yvonne_tian 发表于 2015-2-9 18:04
complete

temp<-as.data.frame(cbind(id,nobs))
return(temp)

请教；
1 / 10        'pollutantmean' part 1        Sun 20 Sep 2015 1:43 AM PDT        0.00 / 2        View        Submit
2 / 10        'pollutantmean' part 2        -        - / 2        View        Submit
3 / 10        'pollutantmean' part 3        -        - / 2        View        Submit
4 / 10        'pollutantmean' part 4
part1；2；3；4； 怎么分？
不是一个程序；三个调用吗？

asprine 发表于 2014-5-18 22:50
submit()  不带参数就是直接在R里提交，十道题，顺序提交就好了。会显示结果，不正确就报错或别的。  

...

请教，自动生成的txt文件？还是我把代码做成txt之后，提交submit？
为啥提示 sorry 错误呢

为啥分 四个 part；怎么分别提交，提交N次都显示错误！

行了，貌似我操作问题，继续！ 谢谢了。

感谢大家的分享，也贡献一下代码，不用每次读入所有文件，计算起来比较快。

1. pollutantmean <- function(directory,pollutant,id=1:332){
   
2.         a<-list.files(directory,full.names=T)##获取所有文件名，并存入a这个list里
   
3.         merge.data = read.csv(file = a[id[1]],header=T)##初创数据表格
   
4.         if(length(id)>=2){
   
5.         for(i in 2:length(id)){
   
6.                 new.data = read.csv(file = a[id[i]], header=T)
   
7.                 merge.data = rbind(merge.data,new.data)
   
8.         }
   
9.         }##合并数据表格
   
10.         mean(merge.data[ ,pollutant],na.rm=TRUE) ##计算平均数
    
11. }

复制代码