R需要使这个过程更快——对于循环、函数或其他东西

下面我有一组代码，我需要运行120次，当然，每次运行都要修改变量。我尝试了一个for循环，并尝试创建一个函数。我只是想加快这个过程。有人能帮我吗？我需要修改的变量是分数和秒数。因此，第一次跑步得1分，第二次跑步得2分，第二次跑步得2分，依此类推。多谢各位

 pre <- aggregate(score~seconds, dataframe, FUN = sum)
 freqsdf <- data.frame(table(SecsOnly$seconds))
 condp <- pre$score/freqsdf$Freq
 condp <- data.frame(condp)
 par(mar = c(5,5,5,5))
 hist(dataframe$seconds, xlab = "", ylab = "", ylim = c(0, 25), axes =    FALSE, col = "grey", main = 'title here', breaks = 100)
axis(4, ylim = c(0, 25), col = "black", col.axis = "black", las = 2,   cex.axis = 1)
par(new = TRUE)
plot(pres$seconds, condp$condp, col = "red" , type = "l", xlab = "Time",   ylab = "y axis label", ylim=c(0,1.0))
abline(h = 0.20)

---

pre您是否尝试过使用
apply
函数系列？e、 g.
lappy
，
sapply
，等等？你必须提供更多信息。即使将
与（dataframe，tapply（score，seconds，sum））一起使用
也要比聚合快。如果不需要循环，您可能需要编写一个函数，然后使用
应用
家族成员之一。但是seconds1，scores1，seconds2，scores2都已经在数据帧或矩阵中了吗？是的，seconds1，等等。。。都在一个数据帧中。我应该把它转换成一个矩阵吗？tapply你会用它来调用一个函数，尽管有时候你会从另一个应用程序内部调用tapply。假设您有scoreNameList和SecondsNameList，它们只是给出列名的120个字符串的各自数组。然后您可以创建一个函数，将这两个数组作为参数。