如何解决将列添加到多个Excel文件并使用循环将其导出
我需要使用R将一些空白列添加到多个Excel文件中,然后将它们导出到我的桌面。
我设法使代码可用于一个excel文件,但无法弄清楚如何对17到32之间的文件进行循环。
r17 <- read_excel("r17.xlsx")
write.csv(r17,file = "C:/Users/Dr Wani/Dropbox/shazan/r17.csv")
解决方法
那
for (i in 17:32) {
write.csv(read_excel(paste0("r",i,".xlsx")),file = paste0("C:/Users/Dr Wani/Dropbox/shazan/r",".csv"))
}
,
您可以将所有csv文件读入列表,然后将一些转换函数应用于列表元素(即数据帧)。然后,您使用另一个lapply
files <- list.files(path = ".",pattern = "*.csv")
data <- lapply(files,read.csv,stringsAsFactors = FALSE)
names(data) <- basename(files)
# do some operation to your data using e.g. lapply
lapply(seq_len(length(data)),FUN = function(x) write.csv(data[[x]],file = names(data[x])))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。