如何用R对数据框按要求进行处理

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

遇到一个问题，一直没有解决，我有一个数据框a，要对该数据框进行处理：在数据框a的前十行中，如果某列中的NA个数大于4，那么就删除该列，应该怎么处理，请帮帮忙

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何用 数据框 没有解决 怎么处理 如何

x<-c(0)
j<-1
for(i in 1:length(a[1,]))
{
  if(length(which(is.na(a[1:10,i])==TRUE))>4)
  {
    x[j]<-i
    j<-j+1
  }
}
b<-a[,-x]

jinkelazzz 发表于 2015-9-22 12:27
x

谢谢啊，请问  x[j]<-i 这个两个式子怎么理解
                    j<-j+1

记录一下该删掉哪些列

jinkelazzz 发表于 2015-9-22 15:13
记录一下该删掉哪些列

谢谢啊

1. a <- matrix(sample(c(rep(NA, 40), 1:60)), nrow=10)
   
2. a <- as.data.frame(a)
   
3. flag <- apply(a, 2, function(x) sum(is.na(x)) <= 4)
   
4. b <- a[, which(flag)]

复制代码

飞行员 发表于 2015-9-22 16:57

给你点赞，不点都不行

飞行员 发表于 2015-9-22 16:57

请问下，如果我用循环批量导入22个表格并且对格式进行了一定的调整后，该如何批量导出这些调整后的表格，我写的循环导出结果，但发现22个表格数据完全被最后一个覆盖了，应该怎么写

愤怒的小鸟！ 发表于 2015-10-1 10:37
请问下，如果我用循环批量导入22个表格并且对格式进行了一定的调整后，该如何批量导出这些调整后的表格， ...

依然是写for循环导出数据，只不过更改一下输出的文件名

1. for (i in 1:22){
   
2.     # add your code of generating data frame, we mark it as df
   
3.     write.table(df, paste("prefix", i, "csv", sep="."), sep=",", row.names=F, quote=F)
   
4. }

复制代码

如果是要导成一个文件的话，写成

1. for (i in 1:22){
   
2.     # add your code of generating data frame, we mark it as df
   
3.     write.table(df, "file.name.csv", sep=",", row.names=F, quote=F, append=T)

复制代码