R 将列添加到多个Excel文件中，并使用循环将其导出

我需要使用R将一些空白列添加到多个Excel文件中，然后将它们导出到我的桌面

我已经成功地让代码为一个excel文件工作，但不知道如何为17到32之间的文件循环它

r17 <- read_excel("r17.xlsx")
write.csv(r17, file = "C:/Users/Dr Wani/Dropbox/shazan/r17.csv")

r17

for (i in 17:32) {
  write.csv(read_excel(paste0("r", i, ".xlsx")), file = paste0("C:/Users/Dr Wani/Dropbox/shazan/r", i, ".csv"))
}

那怎么办

for (i in 17:32) {
  write.csv(read_excel(paste0("r", i, ".xlsx")), file = paste0("C:/Users/Dr Wani/Dropbox/shazan/r", i, ".csv"))
}

您可以将所有csv文件读入列表，并对列表元素（即数据帧）应用一些转换函数。然后使用另一个
lappy

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])))

文件您可以将所有csv文件读取到列表中，并对列表元素（即数据帧）应用一些转换函数。然后使用另一个
lappy

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])))

文件