因子和 Inf/NaN答案

【问题标题】：Factor and Inf/NaN因子和 Inf/NaN
【发布时间】：2014-05-03 01:24:03
【问题描述】：

我编写了一个函数，将 R 中的 Inf/NaN 值转换为 NA。函数如下：

DSanity.replaceInfNan <- function(l)
{
     l <- ifelse((is.infinite(l))|(is.nan(l)), NA, l);
     return(l)
}

但是，当 class(l) 是一个因子时，此函数返回一个整数类的对象。在不明确检查类因素的情况下获得相同类的任何解决方案？下面给出一个例子。

dput(m)    
structure(c(2L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 
    9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 
    22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 2L, 2L, 3L, 4L, 5L, 6L, 
    7L, 8L, 9L, 10L, 11L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 
    2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 
    12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 
    25L, 26L, 27L, 2L, 3L, 4L, 2L, 3L, 4L, 2L, 3L, 4L, 5L, 6L, 7L, 
    8L, 9L), .Label = c("1984", "1985", "1986", "1987", "1988", "1989", 
    "1990", "1991", "1992", "1993", "1994", "1995", "1996", "1997", 
    "1998", "1999", "2000", "2001", "2002", "2003", "2004", "2005", 
    "2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013"
    ), class = "factor")

class(DSanity.replaceInfNan(m))  
"integer"

【问题讨论】：

如果您的函数仅针对因子设计，则可以改为对级别/标签进行操作。如果没有，似乎需要明确的检查。有什么不好的？

标签： r nan na

【解决方案1】：

DSanity.replaceInfNan <- function(l) { 
  l[is.infinite(l) | is.nan(l)] <- NA 
  return(l)
}

【讨论】：

你能解释一下为什么一个函数返回整数，而另一个返回一个因子，尽管这两个函数看起来是等价的？谢谢。
ifelse 的帮助页面中有一条警告指出 结果的模式可能取决于 'test' 的值，这是您的第一个参数ifelse 打电话。尽管第三个参数显然是一个因素，但第一个不是，这就是 R 用来确定返回模式的原因
感谢您的澄清。