迭代子集化数据帧中的函数

Question

我需要在子集化数据框中自动提取几个描述性统计和函数。这是我需要的一个简单示例： 所以我有一个包含两个变量的数据框。第一个（x）是一个因素，第二个（y）是数字。

x <- c("red", "red", "black", "black","blue","blue") 
y <- c(7,3,4,2,4,3)
data<-data.frame(x,y)

for (i in levels(data$x)){
  assign(paste("Sub",i,sep="."),subset(data,data$x==i))
  }

在通过x对数据帧进行子集化之后，我希望自动化总和的计算，每个子集的y值的均值和sd。我不知道应该怎么做，或者我应该开始。任何人都可以帮助我吗？

我非常感谢您提供的任何帮助。