有没有一种方法可以通过不同的子文件夹循环使用相同的功能？

Question

我有一些代码将一个文件夹中的几个数据文件组合到一个ggplot图形中，并将其保存在另一个文件夹中：

setwd("~/data/observation1")

files <- list.files(pattern=".txt")
for (i in files){
  mylist <- lapply(setNames(files, files), read.table, header = T)
  mylist <- lapply(names(mylist), function(i) {cbind(mylist[[i]], ID = i)})
  mydata <- do.call(rbind, mylist)
}

setwd("~/data/graphs")
pdf()
ggplot(mydata, aes(x = place, y = firing_rate, colour = ID)) + geom_point() + geom_path()
dev.off()

我想将此应用到数据文件夹中的所有其他文件夹（observation2，observation3，... observation200），而不必每次都手动更改setwd。反正有做得更快吗？也许是另一个for循环或lapply的某些应用程序？