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

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

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#

}

但运行出错