Question

我收到警告：＆＃34;条件有长度＆gt; 1，当我尝试使用以下函数fixED时，将只使用第一个元素＆＃34;：

> fixED
function(x) {
    if(nchar(x) == 5) {
        return(x)
    }
    else if(nchar(x) == 3) {
        return(gsub('^(.{2})(.*)$', '\\100\\2', x))
    } 
    else if(nchar(x) == 4) {
        return(gsub('^(.{2})(.*)$', '\\10\\2', x))
    }
}

以下是完整的警告：

Warning messages:
1: In if (nchar(x) == 5) { :
  the condition has length > 1 and only the first element will be used
2: In if (nchar(x) == 4) { :
  the condition has length > 1 and only the first element will be used
3: In if (nchar(x) == 3) { :
  the condition has length > 1 and only the first element will be used

我知道这里有一些与此类似的其他问题，但没有一个问题可以解释我的问题。听起来好像R语句if语句中的逻辑表达式返回了> 1的向量。

但是，我不明白这是怎么回事，因为我相当确定它们是1的逻辑向量。事实上，以下似乎证明了：

> length((nchar("43") ==2))
[1] 1

任何人都可以看到问题在这里吗？我此刻难过。我想要应用此功能的数据如下所示：

我这样申请：

df.short$test <- fixED(paste(df.short$AD, df.short$ED, sep=""))

Answer 1

此，

paste(df.short$AD, df.short$ED, sep="")

是一个向量，而不是长度为1，所以当你将它传递给你的函数时，你正在测试一个标量的向量：

nchar(x) == 5

我建议使用apply函数循环你的函数，比如

mapply(fixED, x = paste(df.short$AD, df.short$ED, sep=""))

警告意味着什么：条件的长度> 1，只使用第一个元素

1 个答案: