遍历列表并在R中追加

Question

我对R很陌生，可能会丢失一些信息，但是我无法为这种行为而烦恼：

neighbors<-function(topo,usr){
  n = NULL
  for (i in 1:length(topo[,1])){
    if (topo[i,1] == usr){
      n <- append(n,topo[i,2])
    }
  }
return(n)
}

其中topo具有以下结构：

 2l59mm6jc8pae32vilsr99ljp0 40iml67hpjsr8o1oo7f4oin706
 3359mm6jc8pae32vilsr99ljp0 411iml67hpjsr8o1oo7f4oin706
 ...

我想做的是循环浏览第一列，并从第一列中查看与usr的匹配，然后将第二列的内容添加到n ，然后返回。

我会在输出中得到一些数字： 19和16 。 如果我尝试对其进行调试，则会得到以下答案：

   [1] vi4govpcqjnf6imquadf9ae4f0
   20 Levels: 2l59mm6jc8pae32vilsr99ljp0 40iml67hpjsr8o1oo7f4oin706 ... vvqp3im2g3r90ibv56817asfq7
   [1] 19
   [1] nb9b1vh6ocaqsmgp8dv1s22f61
   20 Levels: 2l59mm6jc8pae32vilsr99ljp0 40iml67hpjsr8o1oo7f4oin706 ... vvqp3im2g3r90ibv56817asfq7
   [1] 19 16
   [1] 19 16

我究竟做错了什么？

Answer 1

更好的方法是：

n = topo[,2][topo[,1] %in% usr]

没有看到您的数据集，我不能肯定地说，但是我在您的代码中看到了两个潜在的问题：

1） topo栏1和2是因素。 您应该将它们转换为字符。

2）如果usr有多个元素， if(topo[i,1] == usr)将无法正常工作。

Answer 2

这是您想要的吗？ 我使用stringsAsFactors=FALSE因为在您的代码中您可能stringsAsFactors=FALSE一个因素与字符串匹配

topo <- data.frame(a=c('2l59mm6jc8pae32vilsr99ljp0','40iml67hpjsr8o1oo7f4oin706'),
               b=c('3359mm6jc8pae32vilsr99ljp0','411iml67hpjsr8o1oo7f4oin706'), 
               stringsAsFactors=FALSE)

neighbors <- function(topo, usr){ 
    n = c()
    for (i in seq_along(usr)){
      if (topo[i,1] == usr[i])
         n[i] <- topo[i,2]
    }
    return( n )
}

<r> neighbors(topo=topo, usr='2l59mm6jc8pae32vilsr99ljp0')
[1] "3359mm6jc8pae32vilsr99ljp0"

<r> neighbors(topo=topo, usr=c('2l59mm6jc8pae32vilsr99ljp0','40iml67hpjsr8o1oo7f4oin706'))
[1] "3359mm6jc8pae32vilsr99ljp0"  "411iml67hpjsr8o1oo7f4oin706"