用subset选择行和列
iris.setosa <- subset(iris,Species=="setosa",
select=c(Sepal.Length,Sepal.Width,Petal.Length,Petal.Width))
iris.versicolor <- subset(iris,Species=="versicolor",
select=c(Sepal.Length,Sepal.Width,Petal.Length,Petal.Width))
iris.virginica <- subset(iris,Species=="virginica",
select=c(Sepal.Length,Sepal.Width,Petal.Length,Petal.Width))
用colMeans求平均,类似的函数还有colSums
setosa <- colMeans(iris.setosa)
versicolor <- colMeans(iris.versicolor)
virginica <-colMeans(iris.virginica)
用rbind组合
rbind(setosa=setosa,versicolor=versicolor,virginica=virginica)