从for循环中的预定义字符串添加参数

Question

我正在运行for循环，我试图在代码中为每次迭代嵌入一个特定的子集。

formu<-c("all$Tonnage>= extr_out_hi","all$Tonnage< extr_out_low")

for (i in 1:5){
Tons<-sum(all$Tonnage[formu],na.rm=T)
m[i]<-Tons
}

但是，我没有收到任何结果。如何调整代码，以便R读取＆＃34; formu＆＃34;作为对帧进行子集化的指示而不是字符串？