基于同一xts对象中另一列的列的条件均值

Question

我有以下xts object = mydata：

row.names   ret   flag
8/1/2014    10     1
8/4/2014    12     3
8/5/2014    -15    2
8/6/2014    05     1
8/7/2014   -06     2

我想找到所有返回值的平均值= 1，flag = 2，flag = 3

这就是我所拥有的：

 g.rt= matrix(0, nrow = 3)
 for (i in 1:3)
  {
  rt[i]=sapply(X=1:nrow(mydata), FUN=function(x) 
  {mean(mydata[which(mydata$flag == i),1])})
  }

虽然它有效，但我收到一条警告信息

    "In g.rt[5] = sapply(X = 1:nrow(tprt), FUN = function(x) { :
    number of items to replace is not a multiple of replacement length"

我不确定它会产生什么影响。你能看一下我的代码，看看我做错了吗？