新手，妹纸，求教各位大神

Ericaceae

> de=read.table("clipboard",header = T,dec=",")
> dim(de)
> head(de)
        Num           taxon frond_lengh stipe_lengh lamina_lengh lamina_width pinna_lengh pinna_width
1 P01483024 A_pseudorigidum        28.1         6.1         22.2         11.0         5.2         1.3
> colcat=c("red", "blue","green", "orange", "magenta", "cyan")
> as.factor(de$taxon)
[1] A_pseudorigidum A_pseudorigidum A_pseudorigidum A_pseudorigidum A_pseudorigidum A_pseudorigidum
Levels: A_obscurum A_pseudorigidum A_rigidum
> espece<-levels(de$taxon)
> databp<-de[,-c(1,2,3,15,16)]
> head(databp)
  stipe_lengh lamina_lengh lamina_width pinna_lengh pinna_width sorus_lengh sorus_width sorus_rate
1         6.1         22.2         11.0         5.2         1.3         1.3         0.9       1.44
> bp<-boxplot(databp, cex=0.5, cex.axis=0.6, col=rainbow(8))
> title(xlab=" nb. of mesures (largeurs et longueurs)", font.lab=2,cex.lab=0.7 )
> pairs(databp, main = "correlation of variability 2 to 2", pch = 20, cex=0.6, col = colcat [unclass(data$taxon)],lower.panel=NULL)
Error in data$taxon : object of type 'closure' is not subsettable
> 之前的也都是好好地，为什么到了这一步就Closure 了呢？
想做散点图也做不出来呀