subset里面再取子集。因为数据既有梯度又有重复。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

最近问题较多，请大家多帮忙。

数据有九个梯度，而且每个梯度里面的重复数不等。我知道代码和数据贴在哪，所以不贴数据了。大家指点一下代码吧。在下面一楼，我贴上代码了。

data<-read.table("data_westeast.txt",header=TRUE)

data<-na.omit(data)

n<-9;gradient<-list(0);

graplot<-list(0)

for (i in 1:n)

{

gradient[]<-subset(data,data$location==i,drop=FALSE);#对数据按梯度进行分组#

}

plotnumber<-list(0)

for (i in 1:n){ graplot[]<-list(0);

plotnumber[]<-length(table(gradient[]$plot));#每个梯度有几个plot，即重复数#

for (j in 1:plotnumber[]){ graplot[][[j]]<-subset(gradient[],gradient[]$plot==j)}

#截取每个梯度的不同plot#

}

但运行出错

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Subset subs SUB Set UBS 而且

1. data<-read.table("data_westeast.txt",header=TRUE)
   
2. data<-na.omit(data)
   
3. n<-9;gradient<-list(0);
   
4. graplot<-list(0)
   
5. for (i in 1:n)
   
6. {
   
7. gradient[[i]]<-subset(data,data$location==i,drop=FALSE);#对数据按梯度进行分组#
   
8. }
   
9. 
   
10. plotnumber<-list(0)
    
11. for (i in 1:n){ graplot[[i]]<-list(0);
    
12. plotnumber[[i]]<-length(table(gradient[[i]]$plot));#每个梯度有几个plot，即重复数#
    
13. for (j in 1:plotnumber[[i]]){ graplot[[i]][[j]]<-subset(gradient[[i]],gradient[[i]]$plot==j)}#截取每个梯度的不同plot#
    
14. 
    
15. 
    
16. }

复制代码

知道了，是数据本身出问题了。谢谢大家