一次显示每个字符/因子变量的唯一值/级别？

Question

如何一次显示每个字符/因子变量的唯一值/级别？

data

library(tidyverse)

d = tibble(age = rnorm(10, 50, 3),
           sex = rep(c("male", "female"), 5),
           name = letters[1:10]) %>% 
  mutate(sex = as.factor(sex))

d

​

levels(d$sex)

​sstatic.net/tmjrn.png“ rel =“ nofollow noreferrer”> 1 “女性”“男性”“男性”

预期的结果应该是这样的

Answer 1

library(tidyverse)
d %>%
  select(!where(is.numeric)) %>%
  split.default(names(.)) %>%
  lapply(unique)
  
$name
name
1:    a
2:    b
3:    c
4:    d
5:    e
6:    f
7:    g
8:    h
9:    i
10:    j

$sex
sex
1:   male
2: female
  

Answer 2

这是您想要的吗？

d %>% mutate_all(funs(replace(., duplicated(.), NA)))

# A tibble: 10 x 3
     age sex    name 
   <dbl> <fct>  <chr>
 1  54.0 male   a    
 2  50.3 female b    
 3  49.1 NA     c    
 4  47.0 NA     d    
 5  49.6 NA     e    
 6  51.0 NA     f    
 7  54.4 NA     g    
 8  56.9 NA     h    
 9  47.3 NA     i    
10  52.4 NA     j    

对值进行排序并将NA推到最后一行

d %>% 
  mutate_all(list(~replace(., duplicated(.), NA))) %>% 
  mutate_all(list(~sort(., na.last = TRUE))) %>% 
  filter(if_any(everything(), ~ !is.na(.))) # To remove rows with all NA's

Answer 3

您可以在函数摘要中调整参数最大值，以显示每个因素所需的多个级别。

d = data.frame(age = rnorm(10, 50, 3),
           sex = rep(c("male", "female"), 5),
           name = letters[1:10])
d$sex <- as.factor(d$sex)
d$name <- as.factor(d$name)

summary(d, maxsum = 10000000)