R中具有不同输出名称的多个文件进程
R中具有不同输出名称的多个文件进程
提问于 2021-04-30 02:55:44
我有一个csv文件的数据集(比如50个文件)：crasha、crashabd、crashd、…我编写了一个函数来对单个数据进行一些更改和分析。我想要有一个动态的输出名称。例如，我希望有newcrasha、newcrashabd、newcrashd和…作为输出csv文件。实际上，我想获取导入文件的名称并将其用作输出文件名？例如：
filenames <- list.files(path = "D:/health/car crash/", pattern = "csv",full.names = TRUE)
analyze <- function(filename) {
# Input is character string of a csv file.
crash <- read.csv(file = filename, header = TRUE)
#merg and summation (crashcounter and NUMBER_INJURED)
newcrash<-crash %>% group_by(COLLISION_DATE) %>% summarise(crashcounter = sum(crashcounter), NUMBER_INJURED = sum(NUMBER_INJURED))
write.csv( newcrash, "D://health//car crash// newcrash.csv", row.names = FALSE)
}
filenames <- filenames[1:50]
for (f in filenames) {
analyze(f)
}感谢您的帮助
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-04-30 03:38:38
按照@mhovd的建议尝试一下：
filename <- list.files(path = "D:/health/car crash/", pattern = "csv",full.names = TRUE)
analyze <- function(filename) {
# Input is character string of a csv file.
crash <- read.csv(file = filename, header = TRUE)
#merg and summation (crashcounter and NUMBER_INJURED)
newcrash<-crash %>% group_by(COLLISION_DATE) %>% summarise(crashcounter = sum(crashcounter), NUMBER_INJURED = sum(NUMBER_INJURED))
new.name <- paste0("D:/health/car crash/new",basename(tools::file_path_sans_ext(filename)),".csv")
write.csv( newcrash, file=new.name, row.names = FALSE)
}
lapply(filename[1:50], analyze)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/67323499
复制相关文章
相似问题
腾讯云开发者
