lis[[i]] 中的错误：尝试选择少于一个元素答案

【问题标题】：Error in lis[[i]] : attempt to select less than one elementlis[[i]] 中的错误：尝试选择少于一个元素
【发布时间】：2015-07-13 06:26:24
【问题描述】：

此代码旨在计算某些给定坐标的总距离，但我不知道为什么它不起作用。

错误是：Error in lis[[i]] : attempt to select less than one element.

代码如下：

distant<-function(a,b)
{
  return(sqrt((a[1]-b[1])^2+(a[2]-b[2])^2))
}
totdistance<-function(lis)
{
  totdis=0
  for(i in 1:length(lis)-1)
  {
    totdis=totdis+distant(lis[[i]],lis[[i+1]])
  }
  totdis=totdis+distant(lis[[1]],lis[[length(lis)]])
  return(totdis)
}
liss1<-list()
liss1[[1]]<-c(12,12)
liss1[[2]]<-c(18,23)
liss1[[4]]<-c(29,25)
liss1[[5]]<-c(31,52)
liss1[[3]]<-c(24,21)
liss1[[6]]<-c(36,43)
liss1[[7]]<-c(37,14)
liss1[[8]]<-c(42,8)
liss1[[9]]<-c(51,47)
liss1[[10]]<-c(62,53)
liss1[[11]]<-c(63,19)
liss1[[12]]<-c(69,39)
liss1[[13]]<-c(81,7)
liss1[[14]]<-c(82,18)
liss1[[15]]<-c(83,40)
liss1[[16]]<-c(88,30)

输出：

> totdistance(liss1)
Error in lis[[i]] : attempt to select less than one element
> distant(liss1[[2]],liss1[[3]])
[1] 6.324555

【问题讨论】：

您应该将for(i in 1:length(lis)-1) 替换为for(i in 1:(length(lis)-1))。 : 运算符在减法 - 之前进行评估。
当我们使用它时，矩阵可能比列表更适合多边形数据，除非还有其他属性需要保存。

标签： r

【解决方案1】：

让我用简单的方式重现你的错误

>list1 = list()  
> list1[[0]]=list(a=c("a"))  
>Error in list1[[0]] = list(a = c("a")) : 
attempt to select less than one element

那么，下一个问题是您在哪里访问 0 索引列表？（列表的索引从 R 中的 1 开始）

正如 Molx，在之前的帖子中指出：“: 运算符在减法之前进行评估 -”。这导致 0 索引列表访问。

例如：

> 1:10-1  
[1] 0 1 2 3 4 5 6 7 8 9  
>1:(10-1)  
[1] 1 2 3 4 5 6 7 8 9

所以替换以下代码行

>for(i in 1:(length(lis)-1))  
{     
     totdis=totdis+distant(lis[[i]],lis[[i+1]])  
}

【讨论】：