Question

我如何在另一栏中相应条目一栏中以相同条目的平均条目为准?

例如,我有一个庞大的表格,其编号为3栏、时间和价格为2栏。并且请在一栏中重复这些数值。如30 000次似乎为4次,则需要将相应的价格栏目的平均数计算出来,并用单一价格将同样的条目归纳为30 000个单行。谁能向我提供一些见解?

抽样数据:

time      prices     size
10:00        23        1
10:15        12        3
10:30        12        1
10:30        19        4
10:45        12        1

我要将第3和第4行改成单行,平均价格。

Answer 1

如何对待类似的东西

tapply(prices, time, mean)

详情见? tapply

但是,你希望与<代码>size栏做些什么?

<>光线>

To take the mean of prices and the last value of size, here s one suggestion:

myDF<-data.frame(time=c("10:00","10:15","10:30","10:30","10:45"),
  prices=c(23,12,12,19,12),size=c(1,3,1,4,1))

theRows <- tapply(seq_len(nrow(myDF)), myDF$time, function(x) {
  return(data.frame(time = head(myDF[x, "time"],1), prices = mean(myDF[x, "prices"]),
    size = tail(myDF[x, "size"], 1)))
  }
)

Reduce(function(...) rbind(..., deparse.level = FALSE), theRows)

p.s. 可通过<条码>dply 进行。保罗的回答也是!

Answer 2

You could also take a look at the plyr package. I would use ddply for this:

ddply(df, .(time), summarise, 
   mean_price = mean(prices),
   sum_size = sum(size))

您的数据载于<代码>df。关于<代码>plyr的更详细描述,请在《统计软件杂志》上查阅

其他备选办法包括使用<代码>数据。

友情链接