Question

如何在R中创建一个考虑两个变量的for循环？

类似的东西：

for(i in 1:10, j in 1:10) {
if vector[j] == vector2[i]
print(variable)
else print(NA) }

这应该给我100个输出，而不是使用

vector[i] == vector[i]

会产生10。

编辑：谢谢你的帮助到目前为止。这是我的实际数据：

for(i in 1:10) {
    for(j in 1:10) {
        if (i == j)
        print(NA)
        else if(st231_eq1_alg$Output[j] == st231_eq1_alg$Input[i])
        print(st231_eq1_alg_f[i])
        else if(st231_eq1_alg$Output[j] == st231_eq1_alg$Output[i])
        print(st231_eq1_alg_inv_f[i])
        else print(NA)
    }
}

任何想法如何最好地代表这些产出？再次感谢。

Answer 1

好像你在问一个嵌套的for循环

for (i in 1:10){
  for(j in 1:10){
    ...
  }
}

但我会推荐一种不同的方法

Vectors <- expand.grid(vector1 = vector1,
                       vector2 = vector2)
Vectors$comparison <- with(Vectors, vector1 == vector2)

Answer 2

您可以使用outer执行此操作，并获得包含结果的10x10矩阵：

vector <- 1:10
vector2 <- sample(vector)
outer(vector,vector2,"==")
       [,1]  [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9] [,10]
 [1,] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE
 [2,] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
 [3,] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE
 [4,] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE
 [5,]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
 [6,] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
 [7,] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE
 [8,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE
 [9,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE
[10,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE

Answer 3

您可以使用嵌套for循环执行此操作：

for (i in 1:10) {
  for (j in 1:10) {
    # Your logic in here
  }
}

Answer 4

如果编写两个嵌套循环，则代码可以正常工作：

DECLARE @OrderProcess TABLE (OrderNo Int, 
                             OPRouteCode VARCHAR(5), 
                             Department VARCHAR(10), 
                             Process VARCHAR(20) )

--Order = 1 OPRouteCode =  '0023'
INSERT INTO @OrderProcess
SELECT 1,'0023' ,'103','Receive'
UNION ALL
SELECT 1,'0023' ,'104','Produce'
UNION ALL
SELECT 1,'0023' ,'104','Pack'
UNION ALL
SELECT 1,'0023' ,'105','Ship'

--Order = 1 OPRouteCode =  '0077'
INSERT INTO @OrderProcess
SELECT 1,'0077' ,'103','Receive'
UNION ALL
SELECT 1,'0077' ,'104','Produce'
UNION ALL
SELECT 1,'0077' ,'105','Ship'

--Order = 2 OPRouteCode =  '0044'
INSERT INTO @OrderProcess
SELECT 2,'0044' ,'105','Receive'
UNION ALL
SELECT 2,'0044' ,'106','Ship'

--Order = 2 OPRouteCode =  '0055'
INSERT INTO @OrderProcess
SELECT 2,'0055' ,'105','Receive'
UNION ALL
SELECT 2,'0055' ,'106','Ship'

以下示例显示了更快地获得此结果的不同可能性：

for(i in 1:10} {
  for (j in 1:10) {
   if vector[j] == vector2[i]
    print(variable)
  else 
    print(NA)
 }
}

这里的优势在于，您只有一个小循环，它只运行在两个向量中相同的条目（在这种情况下为六个数字），而不是在矩阵的整个100个条目上运行的嵌套循环。

如果要按顺序打印此矩阵的条目，就像在嵌套循环中一样，可以键入：

set.seed(1234)
vector <- sample(20,10)
vector2 <- sample(20,10)
same <- vector[vector %in% vector2]
m <- matrix(NA,ncol=10,nrow=10)
for (i in 1:length(same)) m[vector==same[i], vector2==same[i]] <- same[i]
#> vector
# [1]  3 12 11 18 14 10  1  4  8  6
#> vector2
# [1] 14 11  6 16  5 13 17  4  3 12
#> m
#      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
# [1,]   NA   NA   NA   NA   NA   NA   NA   NA    3    NA
# [2,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    12
# [3,]   NA   11   NA   NA   NA   NA   NA   NA   NA    NA
# [4,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
# [5,]   14   NA   NA   NA   NA   NA   NA   NA   NA    NA
# [6,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
# [7,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
# [8,]   NA   NA   NA   NA   NA   NA   NA    4   NA    NA
# [9,]   NA   NA   NA   NA   NA   NA   NA   NA   NA    NA
#[10,]   NA   NA    6   NA   NA   NA   NA   NA   NA    NA 
#> same
#[1]  3 12 11 14  4  6

就与编辑相关的更改而言，我认为这应该有效：

print(c(m))

R - for循环中的多个变量？

4 个答案: