创建最大值的摘要表

Question

我有一个平均流量的每日数据矩阵,并希望制作一个显示最大峰值流量的汇总矩阵.以下是我的数据的一些示例:

x<-c(5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100)
flow<-matrix(c(c(rep(1990,365),rep(1991,365),rep(1992,365)),sample(x,(365*3), replace=TRUE)),nrow=(365*3), ncol=2)

我希望汇总矩阵使用第1列中的年份和第2列中该年份的峰值流量事件进行格式化.以下是我希望格式化汇总矩阵的示例.

summary=matrix(, ncol=2, nrow=3)
summary[,1]=c(1990,1991,1992)

Answer 1

这应该是接近的:

DF <- as.data.frame(flow)
names(DF) <- c("year", "flow")
DF$year <- as.factor(DF$year)
res <- aggregate(flow ~ year, data = DF, FUN = max)

并给出:

  year flow
1 1990  100
2 1991  100
3 1992  100

以数据框的形式.