根据R中第一个变量的第二个变量的平均值

我有两个变量，我想根据第一个计算第二个变量的平均值

第一个变量是时间，取100个值

第二个变量是索引。我将第一个变量分为4类（不等于）。 我想计算每类/组时间的指数平均值，然后根据分组时间绘制它

重要提示：我不想在R中使用另一个包。 提前谢谢

time<-c(1:100)
index<-rnorm(100,0,1)
time_groups<-table(cut(time, seq(0,100,25)))

set.seed（1）
时间这是一个可能的答案，但是对于大样本来说速度非常慢……如果您有更好的答案，请帮助

time<-c(1:100)
index<-rnorm(100,0,1)

h1<-seq(0,max(time)+25,25)
h2<-c(1:length(h1)-1)
group<-rep(NA,length(time))
for (j in 1:length(h1)){
for (i in 1:100){
if (h1[j]<=time[i] & h1[j+1]>time[i])
(group[i]<-h2[j])
}}
aggregate(index, by=list(group), mean)

time请更加具体并添加一个。例如
ave（time，index）
。
set.seed(1)
time <- 1:100
groups <- cut(time, breaks=c(0, 20, 50, 70, 100))
index <- rnorm(length(time))
barplot(tapply(index, groups, mean), xlab="Time group", ylab="Index mean")

time<-c(1:100)
index<-rnorm(100,0,1)

h1<-seq(0,max(time)+25,25)
h2<-c(1:length(h1)-1)
group<-rep(NA,length(time))
for (j in 1:length(h1)){
for (i in 1:100){
if (h1[j]<=time[i] & h1[j+1]>time[i])
(group[i]<-h2[j])
}}
aggregate(index, by=list(group), mean)