如何在 R 中迭代间隔并更改 For 循环中的变量？

发布于 2025-01-11 16:43:28 字数 503 浏览 0 评论 0原文

所以这是一个 for 循环，我试图用它来进行这样的迭代：

n <- 2
b <- 1
for(i in seq(from=1, to=5, by=n)){
  test_buffer <- st_buffer(manhattan_data$geometry[i:n*b], dist=300)
  nam <- paste("buffer", i, sep="_")
  assign(nam, test_buffer)
  b <- b + 1
}

我希望这个循环给我这个输出的结果，但由于某种原因，只有第一次迭代工作正常，我不明白为什么：

st_buffer(manhattan_data$geometry[1:2], dist=300) 
st_buffer(manhattan_data$geometry[3:4], dist=300) 
st_buffer(manhattan_data$geometry[5:6], dist=300)

原文

So this is a for loop that I am trying to use to iterate like this:

n <- 2
b <- 1
for(i in seq(from=1, to=5, by=n)){
  test_buffer <- st_buffer(manhattan_data$geometry[i:n*b], dist=300)
  nam <- paste("buffer", i, sep="_")
  assign(nam, test_buffer)
  b <- b + 1
}

I want this loop to give me the result of this output, but for some reason only the first iteration works fine and I can't figure out why:

st_buffer(manhattan_data$geometry[1:2], dist=300) 
st_buffer(manhattan_data$geometry[3:4], dist=300) 
st_buffer(manhattan_data$geometry[5:6], dist=300)

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

隱形的亼 2025-01-18 16:43:28

n <- 2
i = seq(from=1, to=5, by=n)
result = lapply(i, function(i) {
  st_buffer(manhattan_data$geometry[i:(i+1)], dist=300)
})
names(result) <- paste0('buffer_',i)

n <- 2
i = seq(from=1, to=5, by=n)
result = lapply(i, function(i) {
  st_buffer(manhattan_data$geometry[i:(i+1)], dist=300)
})
names(result) <- paste0('buffer_',i)

回复收藏 0 原文

~没有更多了~