R中如何循环提取数据，为什么我提取的结果只有最后一个？

setwd("F:/R/")  #文件位置
getwd()
library(xlsx)
a<- read.xlsx("F:/R/练习/20210111-trp-5-projects.xlsx",1) #文件位置
a<- a[order(a$Component.Name,decreasing = FALSE),]
a<- subset(a,a$Sample.Type =="Standard")
View(a)
b<- subset(a,a$Correlation.Coefficient != "N/A" )
View(b)
n<- nrow(b)/15-1
table<- list()
  for(x in 0:1){
  c<-b[(15*x+1):(15*x+15),]
  d<- subset(c,c$Used == TRUE,)
  e<- d[which.min(d$Calculated.Concentration),]
  LLOD<-e$Calculated.Concentration
  f<- d$Calculated.Concentration
  g<- as.numeric(f)          #让f的数变成数值型
  LLOQ<- min(g[g!=min(g)])   #去掉最小的那个数
  h<- d[which.max(d$Actual.Concentration),]
  ULOQ<-h$Actual.Concentration
  i<- d$Correlation.Coefficient
  R2<- max(i)
  j<- d$Component.Name
  Name<- j[1]
write.csv(data.frame(Name,LLOD,LLOQ,ULOQ,R2))
 }

你好，我是问答小助手，非常抱歉，本次您提出的有问必答问题，超出我们目前的服务范围，暂时无法为您解答。


问答VIP目前服务范围为 ：Python、Java、MySQL、Redis、网络、Linux、大数据、云计算、云原生、中间件、MongoDB、HBase、Zookeeper、Kafka等领域专业问题解答，为您提供解决问题的思路和指导。
不提供源码代写、项目文档代写、论文代写、安装包资源发送或安装指导等服务。

本次提问扣除的有问必答次数已经为您补发到账户，我们后续会持续优化，扩大我们的服务范围，为您带来更好地服务。