【求助】【新人】R循环选取数据框

部分代码如下：

col<-colnames(otu)

for (i in col){
  a<-otu[which(otu$i>0),]
  labels<-rownames(a)
  x<-a$i
  pdf(paste("pie.",i,".4.result.txt.pdf",sep=""),width=10,height=10)
  pie(x,labels,main=i,col=mycol[1:nrow(otu)])
  dev.off()
}
其中：otu是个数据框，列名为（EC0,ECS,CC0,CCS,UC0），赋值给col,

我想循环的时候选取其中一列作为新的数据框，但是代码里
otu$i 和a$i  这样写好像不对。。。为什么呢，我把 i 打印出来也没有错，是列名。

大神们帮帮我啊TT