使用特定迭代在R中创建列表

我有一个文件夹，里面有10个文件，我在R中作为

S

S<-list.files(S1_path, recursive = TRUE, full.names = TRUE, pattern="S1") 

> S
 [1] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180412T171648_20180412T171715_021437_024E95_BDA1.zip"
 [2] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180424T171648_20180424T171715_021612_02540A_BB21.zip"
 [3] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180506T171649_20180506T171716_021787_025996_98AB.zip"
 [4] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180518T171649_20180518T171716_021962_025F27_A15C.zip"
 [5] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180530T171650_20180530T171717_022137_0264C8_5D94.zip"
 [6] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180611T171651_20180611T171718_022312_026A3D_BBFC.zip"
 [7] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180623T171652_20180623T171719_022487_026F7C_450E.zip"
 [8] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180705T171652_20180705T171719_022662_027499_1B8F.zip"
 [9] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180717T171653_20180717T171720_022837_0279EC_5E5E.zip"
[10] "/shared/Training/EARSEL0918_UrbanClassification_Germany/Original//S1A_IW_SLC__1SDV_20180729T171654_20180729T171721_023012_027F72_97F6.zip"

---

你有什么建议吗。类似于

i+2

？

这样的东西会接近您所需要的吗

library(tidyverse)

list1 <- S[seq(1, 9, 2)] %>% 
  map(~paste0("-Pinput1=", .x))

库（tidyverse）
列表1%
映射（~paste0（“-Pinput1=”，.x））

---

第一行是从列表中提取奇数位置，第二行是在每个位置前面粘贴字符串

-Pinput1=

，这是否接近您需要的位置

library(tidyverse)

list1 <- S[seq(1, 9, 2)] %>% 
  map(~paste0("-Pinput1=", .x))

库（tidyverse）
列表1%
映射（~paste0（“-Pinput1=”，.x））

第一行是从列表中提取奇数位置，第二行是将字符串

-Pinput1=

粘贴到每个位置的前面

even_indexes<-seq(2,10,2) # List of even indexes
odd_indexes<-seq(1,10,2)  # List of odd indexes
paste0("-Pinput1=",df[odd_indexes,])  # Name with odd index
paste0("-Pinput1=",df[even_indexes,]) # Name with even index

偶数索引最简单的方法：

even_indexes<-seq(2,10,2) # List of even indexes
odd_indexes<-seq(1,10,2)  # List of odd indexes
paste0("-Pinput1=",df[odd_indexes,])  # Name with odd index
paste0("-Pinput1=",df[even_indexes,]) # Name with even index

偶数索引试试这个例子：

S <- c("a", "b", "c", "d")

S_odd <- paste0("-Pinput1=", S[ c(TRUE, FALSE) ])
S_even <- paste0("-Pinput1=", S[ c(FALSE, TRUE) ])

S_odd
# [1] "-Pinput1=a" "-Pinput1=c"

S_even
# [1] "-Pinput1=b" "-Pinput1=d"

S试试这个例子：

S <- c("a", "b", "c", "d")

S_odd <- paste0("-Pinput1=", S[ c(TRUE, FALSE) ])
S_even <- paste0("-Pinput1=", S[ c(FALSE, TRUE) ])

S_odd
# [1] "-Pinput1=a" "-Pinput1=c"

S_even
# [1] "-Pinput1=b" "-Pinput1=d"

S添加您的所有想法我也设法找到了解决方案：

input<-list()
for (i in S[seq(1, 10, 2)]){
  input[[i]]<-paste("-Pinput1=", i, sep="")
}

input添加您的所有想法我也设法找到了解决方案：

input<-list()
for (i in S[seq(1, 10, 2)]){
  input[[i]]<-paste("-Pinput1=", i, sep="")
}

输入类似于（seq（0，10，2）中的i）的
的东西
？听起来是个好主意，但我在输入[[i]]中遇到了这个错误
错误你需要两个单独的列表吗？是的，它们必须是独立的<代码>顺序（1，10，2））
将适用于职位
[1]
，
[3]
，
[5]
，
[7]
，
[9]
，但
i
等于数字，而不涉及
中的文件名。您需要一个列表中的文件为奇数，另一个列表中的文件为偶数。对吗？类似于（seq（0，10，2）中的i）的
，
？听起来是个好主意，但我在输入[[i]]中得到了这个错误
错误。你需要两个单独的列表吗？是的，它们必须是独立的<代码>顺序（1，10，2））
将适用于职位
[1]
，
[3]
，
[5]
，
[7]
，
[9]
，但
i
等于数字，而不涉及
中的文件名。您需要一个列表中的文件为奇数，另一个列表中的文件为偶数。对吗？@GCGM：你能检查一下答案吗？你在找同样的吗？请让我知道你的观点。是的，它为我的链条产生了有用的输出！感谢you@GCGM你能核对一下答案吗？你在找同样的吗？请让我知道你的观点。是的，它为我的链条产生了有用的输出！感谢您无需
forloop
，请尝试：
input无需
forloop
，请尝试：
input