需要帮助使用循环从R中的表中写入唯一值的数据吗

试图弄明白为什么当我运行这段代码时，列中的所有信息都只写入第一个文件。我想要的只是要写出的MO编号的唯一列中的数据。我相信问题出在第三行，但我不确定如何将数据除以每个唯一的数字

谢谢你的帮助

---

for（i in 1:nrow（MOs_InterestDF1））{
MO=MOs\U利息TDF1[i，1]
df=生产任务利息[生产任务利息$MO\U编号==生产任务，c（“项目编号”、“操作编号”、“操作说明”、“标准日”、“实际小时数”、“差额”、“总和”）]
submit.df如果没有示例数据，很难完全回答（什么是
MOs_InterestDF1
？），但我认为您的问题在df行。您是否试图将数据帧子集为仅与MO匹配的数据？如果是，请尝试
哪个
如
df=MOs_Interest[哪个（MOs_Interest$MO_NUMBER==MO），]

我不确定您是否有两个单独的dfs（
MOs\u Interest
和
MOs\u Interest df1
）；如果没有，请确保
df
行指向正确的数据帧

我尝试创建一些简化的示例数据：

MOs_InterestDF1 <- data.frame("MO_NUMBER" = c(1,2,3), "Item_No" = c(142,423,214), "Desc" = c("Plate","Book","Table"))
for (i in 1:nrow(MOs_InterestDF1)) {
MO = MOs_InterestDF1[i,1]
mydf = data.frame(MOs_InterestDF1[which(MOs_InterestDF1$MO_NUMBER == MO),])
filename = paste("This is number ",MO,".csv", sep="")
write.csv(mydf, file = filename, row.names=FALSE)
}

如果您试图为每个唯一的生产任务编号编写一个单独的csv，那么类似的方法可能可以实现这一点

unique.mos <- unique(MOs_Interest$MO_NUMBER)

for (mo in unique.mos){

  submit.df <- MOs_Interest[MOs_Interest$MO_NUMBER == mo, c("ITEM_NUMBER", "OPER_NO", "OPER_DESC", "STDRUNHRS", "ACTRUNHRS","Difference", "Sum")]

  filename <- paste("Variance", "Report", mo, ".csv", sep="")

  write.csv(submit.df, file = filename, row.names = FALSE)
  }

unique.mos抱歉搞混了，mos_InterestDF1是唯一值的表，mos_interestf1拥有所有信息。我的标题选择不好。
MOs Item_No   Desc
1     142     Plate

unique.mos <- unique(MOs_Interest$MO_NUMBER)

for (mo in unique.mos){

  submit.df <- MOs_Interest[MOs_Interest$MO_NUMBER == mo, c("ITEM_NUMBER", "OPER_NO", "OPER_DESC", "STDRUNHRS", "ACTRUNHRS","Difference", "Sum")]

  filename <- paste("Variance", "Report", mo, ".csv", sep="")

  write.csv(submit.df, file = filename, row.names = FALSE)
  }