使用循环r加载多个数据集

我试图为大约270个数据集复制相同的代码：

房屋

和

村庄

我为每个村庄都有一对数据集，即houses_1 village_1、houses_2 village_2等等

这是我的密码：

houses = read.csv("gis/village/houses_1.csv")
village = read.csv("gis/village/village_1.csv")
coordinates(houses)<-~LAT+LON
proj4string(houses) <- CRS("+init=epsg:4326")
coordinates(village)<-~LAT+LON
proj4string(village) <- CRS("+init=epsg:4326")
houses@data$dist_center <- apply(t(gDistance(houses,village,byid = TRUE)),MARGIN = 1, FUN = "min")
library(foreign)
houses <- data.frame(houses)
write.dta(houses, "houses.dta")
remove(houses, village)

houses=read.csv（“gis/village/houses_1.csv”）
村庄=read.csv（“gis/village/village_1.csv”）
坐标（房屋）应该这样做：

for (i in 1:270) {
houses <- read.csv(paste0("gis/village/houses_",i,".csv"))
village = read.csv(paste0("gis/village/village_",i,".csv"))
...
write.dta(houses, paste0("houses",i,".dta"))

for（1:270中的i）{
房屋
for (i in 1:270) {
houses <- read.csv(paste0("gis/village/houses_",i,".csv"))
village = read.csv(paste0("gis/village/village_",i,".csv"))
...
write.dta(houses, paste0("houses",i,".dta"))