Question

我是R的新手，希望将文件列表作为单独的数据框读取，对每个文件执行多个操作，并将它们保存为具有动态文件名的单独文件。我在想我应该使用lappy，但不确定。

以下是我编写的适用于一个文件的代码：

df <- read.fwf('USC00011084.dly', widths = c(21, rep(c(5, 1, 1, 1),31)))

df2 <- df[-c(3:5, 7:9, 11:13, 15:17, 19:21, 23:25, 27:29, 31:33, 35:37, 39:41, 43:45, 47:49, 51:53, 55:57, 59:61, 63:65, 67:69, 71:73, 75:77, 79:81, 83:85, 87:89, 91:93, 95:97, 99:101, 103:105, 107:109, 111:113, 115:117, 119:121, 123:125)] 

df2[df2=="-9999"]<-NA

df$new <- rowSums(df2[,2:32], na.rm = TRUE)

df2["Total"] <- df$new

colnames(df2) <- c("StationDateType", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "28", "30", "31", "TotalMonthly")

Prcp <- df2[grep("PRCP", df2$StationDateType),]

write.table(Prcp, "USC00011084Prcp.txt", sep="\t", row.names=FALSE)

如何为目录中的文件列表执行此操作？有任何想法吗？谢谢。

Answer 1

你可以尝试这个...... 您可以获取文件列表：

files <- list.files(getwd())

编写一个执行所需分析的函数，并将结果写入表中，就像您所做的那样。这里我们使用tools :: file_path_sans_ext来提取文件名（没有文件类型扩展名），最后使用它来命名要保存到txt的表。

myFunction <- function(files){
  fileName <- tools::file_path_sans_ext(files)
  df <- read.fwf(files, widths = c(21, rep(c(5, 1, 1, 1),31)))
  # rest of your code
  # ...
  write.table(Prcp, paste0(fileName, "Prcp.txt"), sep="\t", row.names=FALSE)
}

您可以使用lapply在文件中的每个文件上运行您的函数。

lapply(files, function(x) myFunction(x))

在目录中的文件列表上迭代几个操作，并在R，Lapply中使用新的动态文件名保存？

1 个答案: