例えばラベルごとの平均を求める． label<-c(1,3,2,3,2,1,1,2,3) data<-c(23,13,43,52,32,21,0,21,51) f1<-tapply(v1,v0,mean) f1 plot(names(f1),f1) 出力 1 2 3 14.66667 32.00000 38.66667