closed

  starwars %>%
   select(name, mass) %>%
   mutate(
     mass2 = mass * 2,
     mass2_squared = mass2 * mass2
   )

  (cars 
    >> mutate(
      cyl2 = _.cyl * 2, 
      cyl4 = _.cyl2 * 2
    )
    >> head(2)
  )
     cyl   mpg   hp  cyl2  cyl4
  0    6  21.0  110    12   24
  1    6  21.0  110    12   24