分享
三行代码  ›  专栏  ›  技术社区  ›  mbeasle2

case_when()在管道中变异,但保留原始数据

  •  0
  • mbeasle2  · 技术社区  · 1 周前

    data(mtcars)
    
    mtcars %>%
      mutate(carb = case_when(
        cyl == 4 ~ 5000
      ))
    
    cyl    carb
    <dbl> <dbl>
    
    6   NA          
    6   NA          
    4   5000            
    6   NA          
    8   NA          
    6   NA          
    8   NA          
    4   5000            
    4   5000            
    6   NA  
    

    如果这是我的数据,我会希望5000连同原始数据在'碳水化合物'列。

    谢谢您!

    1 回复  |  直到 1 周前
        1
  •  2
  •   Joel Kandiah    1 周前

    幸运的是,这个问题相对来说微不足道。在 case_when() 我们按顺序检查条件列表,如果第二个参数有条件 TRUE carb 我们可以达到我们的目的。

    我在下面制作了一个说明性的reprex。

    library(tidyverse)
    
    mtcars %>%
      mutate(carb = case_when(
        cyl == 4 ~ 5000,
        TRUE ~ carb
      )) %>% 
      head(10)
    #>                    mpg cyl  disp  hp drat    wt  qsec vs am gear carb
    #> Mazda RX4         21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
    #> Mazda RX4 Wag     21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
    #> Datsun 710        22.8   4 108.0  93 3.85 2.320 18.61  1  1    4 5000
    #> Hornet 4 Drive    21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
    #> Hornet Sportabout 18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
    #> Valiant           18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1
    #> Duster 360        14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4
    #> Merc 240D         24.4   4 146.7  62 3.69 3.190 20.00  1  0    4 5000
    #> Merc 230          22.8   4 140.8  95 3.92 3.150 22.90  1  0    4 5000
    #> Merc 280          19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4
    

    reprex package