การยุบคอลัมน์ในเวอร์ชัน R Easy

เมื่อใช้ forcats::fct_other คุณสามารถระบุหมวดหมู่ที่คุณต้องการรวมเป็นหมวดหมู่อื่นๆ ได้

ตัวอย่างเช่น:

library(tidyverse)

drop_cats <- c("Naboo", "Stewjon")

starwars %>%
  mutate(homeworld =  fct_other(homeworld, drop = drop_cats)) 

A tibble: 87 x 13
   name       height  mass hair_color   skin_color eye_color birth_year gender homeworld species films  vehicles starships
   <chr>       <int> <dbl> <chr>        <chr>      <chr>          <dbl> <chr>  <fct>     <chr>   <list> <list>   <list>   
 1 Luke Skyw…    172    77 blond        fair       blue            19   male   Tatooine  Human   <chr … <chr [2… <chr [2]>
 2 C-3PO         167    75 NA           gold       yellow         112   NA     Tatooine  Droid   <chr … <chr [0… <chr [0]>
 3 R2-D2          96    32 NA           white, bl… red             33   NA     Other     Droid   <chr … <chr [0… <chr [0]>
 4 Darth Vad…    202   136 none         white      yellow          41.9 male   Tatooine  Human   <chr … <chr [0… <chr [1]>
 5 Leia Orga…    150    49 brown        light      brown           19   female Alderaan  Human   <chr … <chr [1… <chr [0]>
 6 Owen Lars     178   120 brown, grey  light      blue            52   male   Tatooine  Human   <chr … <chr [0… <chr [0]>
 7 Beru Whit…    165    75 brown        light      blue            47   female Tatooine  Human   <chr … <chr [0… <chr [0]>
 8 R5-D4          97    32 NA           white, red red             NA   NA     Tatooine  Droid   <chr … <chr [0… <chr [0]>
 9 Biggs Dar…    183    84 black        light      brown           24   male   Tatooine  Human   <chr … <chr [0… <chr [1]>
10 Obi-Wan K…    182    77 auburn, whi… fair       blue-gray       57   male   Other     Human   <chr … <chr [1… <chr [5]>
# … with 77 more rows