在R中保存具有不同长度的结果的元素答案

【问题标题】：Element to save results with different length in R在R中保存具有不同长度的结果的元素
【发布时间】：2015-07-15 04:22:35
【问题描述】：

我想使用 agrep 函数提取相似的文本字符串并将它们保存在列表或向量中，但结果长度不同（即使替换可能长度为零），所以我收到错误。

如何定义列表或向量以保存结果，即使它们的长度不同？

这是一个可重现的例子：

x <- c("REF.E600J","SIN MODELO","REF.E705N","24-53793A-K","24-53646A-K","33-53633A-K",
   "REF.E522N","CON MODELO","VAR MODELO","REF.E610L")

similitud <- list()

for (i in c(1:length(x))) {
similitud[i] <- agrep(x[i],x[-i],max=3,value=T)
}
#Error and warning
Error in similitud[i] <- agrep(x[i], x[-i], max = 3, value = T) : 
replacement has length zero
In addition: Warning messages:
1: In similitud[i] <- agrep(x[i], x[-i], max = 3, value = T) :
number of items to replace is not a multiple of replacement length
2: In similitud[i] <- agrep(x[i], x[-i], max = 3, value = T) :
number of items to replace is not a multiple of replacement length
3: In similitud[i] <- agrep(x[i], x[-i], max = 3, value = T) :
number of items to replace is not a multiple of replacement length

【问题讨论】：

标签： r agrep

【解决方案1】：

对于列表，您使用[[ 而不是[ 来分配/获取单个元素（[ 返回一个子列表）。

for (i in c(1:length(x))) {
  similitud[[i]] <- agrep(x[i],x[-i],max=3,value=T)
}

只需将您的 similitud[i] 更改为 similitud[[i]]。

【讨论】：