处理 apply 和 unique 中的 NA 值

Question

我有一个 114 行 x 16 列的数据框，其中行是个人，列是他们的名字或 NA。例如，前 3 行如下所示：

            name name.1      name.2 name.3       name.4 name.5       name.6 name.7       name.8 name.9       name.10 name.11       name.12 name.13        name.14 name.15
1           <NA>   <NA>        <NA>   <NA>         <NA>   <NA>         <NA>   <NA>         <NA>   <NA>      Aanestad    <NA>      Aanestad    <NA>       Aanestad    <NA>
2           <NA>   <NA>        <NA>   <NA>         <NA>   <NA>         <NA>   <NA>     Ackerman   <NA>      Ackerman    <NA>      Ackerman    <NA>       Ackerman    <NA>
3           <NA>   <NA>        <NA>   <NA>         <NA>   <NA>      Alarcon   <NA>      Alarcon   <NA>       Alarcon    <NA>       Alarcon    <NA>           <NA>    <NA>

我想生成所有唯一名称的列表（如果每行有多个唯一名称）或向量（如果每行只有一个唯一名称），长度为 114。

当我尝试 < code>apply(x,1,unique) 我得到一个 2xNcol 数组，其中有时第一行单元格为 NA，有时第二行单元格为 NA。

    [,1]       [,2]       [,3]      [,4]     [,5]      [,6]      [,7]    [,8]   [,9]    
[1,] NA         NA         NA        NA       "Alquist" NA        "Ayala" NA     NA      
[2,] "Aanestad" "Ackerman" "Alarcon" "Alpert" NA        "Ashburn" NA      "Baca" "Battin"

当我想要的只是：

Aanestad
Ackerman
Alarcon
...

我似乎无法弄清楚如何在忽略 NA 的同时应用 unique() 。 na.rm、na.omit 等似乎不起作用。我觉得我错过了一些非常简单的东西......

谢谢！

Answer 1

unique 似乎没有 na.rm 参数，但您可以在调用它之前自行删除缺失的值

A <- matrix(c(NA,"A","A",
             "B", NA, NA,
              NA, NA, "C"), nr=3, byrow=TRUE)
apply(A, 1, function(x)unique(x[!is.na(x)]))

：

[1] "A" "B" "C"

Answer 2

您非常非常接近最初的解决方案。但正如 Aniko 所说，您必须先删除 NA 值，然后才能使用 unique。

我们首先创建一个类似的 data.frame 的示例，然后像您一样使用 apply() ——但使用了一个用于组合 的附加匿名函数na.omit() 和 unique()：

R> DF <- t(data.frame(foo=sample(c(NA, "Foo"), 5, TRUE), 
                      bar=sample(c(NA, "Bar"), 5, TRUE)))
R> DF
    [,1]  [,2] [,3]  [,4]  [,5] 
foo "Foo" NA   "Foo" "Foo" "Foo"
bar NA    NA   NA    "Bar" "Bar"
R> apply(DF, 1, function(x) unique(na.omit(x)))
  foo   bar 
"Foo" "Bar"