在数据框中的所有列中找到唯一值的计数，而不包括NA值（R）

Question

给定可重现的数据框，我想在每列中找到不包括缺失（NA）值的唯一值数。下面的代码计数Na值，因此，nat_country列的基数显示为n_unique_values dataframe中的4（应该为3）。在Python中，存在nunique（）函数，该功能不考虑Na值。在R中，如何实现这一目标？

nat_country = c("United-States", "Germany", "United-States", "United-States", "United-States", "United-States", "Taiwan", NA)
age = c(14,15,45,78,96,58,25,36)
dat = data.frame(nat_country, age)
n_unique_values  = t(data.frame(apply(dat, 2, function(x) length(unique(x)))))

Answer 1

您可以使用dplyr :: n_distinct na.rm = t：

library(dplyr)
sapply(dat, n_distinct, na.rm = T)
#map_dbl(dat, n_distinct, na.rm = T)

#nat_country         age 
#          3           8 

---

在基本r中，您可以使用na.omit：

sapply(dat, \(x) length(unique(na.omit(x))))
#nat_country         age 
#          3           8 

Answer 2

我们可以使用MAP或map_dfr n_distinct：

library(dplyr)
library(purrr)
dat %>% 
  map_dfr(., n_distinct, na.rm = TRUE)

 nat_country   age
        <int> <int>
1           3     8

library(dplyr)
library(purrr)

dat %>% 
  map(., n_distinct, na.rm = TRUE) %>% 
  unlist()

nat_country         age 
          3           8 

Answer 3

在基础r 中，您可以使用表。如果要更改默认行为，它还具有参数USENA。

sapply(dat, function(x) length(table(x)))
nat_country         age 
          3           8