对不起,这是我的第一条消息,我在R和编码方面都是全新的。
我的代码有问题。我有这个错误:
read.table出错(file = file,header = header,sep = sep,quote = quote,: 重复' row.names'不允许
pollutantmean<-function(directory,pollutant,id=1:332){
files_list <- list.files(directory, full.names=TRUE)
dat <- data.frame()
len<-length(files_list)
for (i in 1:len) {
dat <- rbind(dat, read.csv(files_list[i]),row.names = NULL)
}
dat_subset <- dat[which(dat[,"ID"] == id),]
if(pollutant=="sulfate")
mean(dat[, "sulfate"], na.rm=TRUE)
else
mean(dat[, "nitrate"], na.rm=TRUE)
}
我找到了提示row.names=NULL
,但它不起作用,我完全陷入困境。非常感谢有人可以提供帮助。