PDF 81 / 520 ) #> # A tibble: 336,776 × 9 #> year month day dep\delay arr\delay distance air\time #> #> 1 201
English · PDF 81
Original PDF page 81
中文 · PDF 81

#> # A tibble: 336,776 × 9 #> year month day dep_delay arr_delay distance air_time #> #> 1 2013 1 1 2 11 1400 227 #> 2 2013 1 1 4 20 1416 227 #> 3 2013 1 1 2 33 1089 160 #> 4 2013 1 1 -1 -18 1576 183 #> 5 2013 1 1 -6 -25 762 116 #> 6 2013 1 1 -4 12 719 150 #> # ... 还有 3.368e+05 行,以及 2 个更多变量: #> # gain , speed

注意,你可以引用刚刚创建的列:

mutate(flights_sml, gain = arr_delay - dep_delay, hours = air_time / 60, gain_per_hour = gain / hours ) #> # A tibble: 336,776 × 10 #> year month day dep_delay arr_delay distance air_time #> #> 1 2013 1 1 2 11 1400 227 #> 2 2013 1 1 4 20 1416 227 #> 3 2013 1 1 2 33 1089 160 #> 4 2013 1 1 -1 -18 1576 183 #> 5 2013 1 1 -6 -25 762 116 #> 6 2013 1 1 -4 12 719 150 #> # ... 还有 3.368e+05 行,以及 3 个更多变量: #> # gain , hours , gain_per_hour

如果你只想保留新变量,请使用 transmute():

transmute(flights, gain = arr_delay - dep_delay, hours = air_time / 60, gain_per_hour = gain / hours ) #> # A tibble: 336,776 × 3 #> gain hours gain_per_hour #> #> 1 9 3.78 2.38 #> 2 16 3.78 4.23 #> 3 31 2.67 11.62 #> 4 -17 3.05 -5.57 #> 5 -19 1.93 -9.83 #> 6 16 2.50 6.40 #> # ... 还有 3.368e+05 行