看起来你的主要问题是你的
date
田野有时间附加。您需要做的第一件事是创建一个只使用类似日期的列
Dis_sub$date_only <- as.Date(Dis_sub$date)
</code>
然后使用Joris Meys的解决方案(这是正确的方法)应该可行。
但是,如果由于某种原因你
真
想要使用循环,你可以尝试类似的东西
newFrame <- data.frame()
for d in unique(Dis_sub$date){
meanDist <- mean(Dis_sub$dist[Dis_sub$date==d],na.rm=TRUE)
newFrame <- rbind(newFrame,c(d,meanDist))
}
</code>
但请记住,这将是缓慢且内存效率低下的。