我有for循环列出多个excel工作表,读取它们,进行一些处理的过程,理想情况下,我希望将结果输出存储到同一excel文件/工作表中。
所需的输出是qs
块引用
files <- list.files(path = "V:/_190718AA_ascii", pattern =
"*.xlsx", full.names = T)
df.list <- lapply(files, read_excel,col_names=FALSE) kClusters=5 for (m in df.list) {
qs[m]<- quantile(m[px[,,1,1]],probs=c(0,0.025,0.05,0.1,0.25,0.5,0.75,0.9,0.95,0.975,1))
write.xlsx(qs[m],"V:/_ORG/080-DOZP/BO-P2/DOZPLL/Esma/uqs.xlsx",sheet=m) m <- m+1
}
它仅从1 m而不是4给出重用。
版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。