"如何找到差异的最小值和最大值"

Question

There is a data frame already given called taxis, now I have to do the following,but I am stuck on the last step...

# Create my_distance and diff

taxis_my_dist <- taxis  %>% 
  mutate(my_distance = hav_dist(pickup_longitude , pickup_latitude ,dropoff_longitude, dropoff_latitude ),
         diff = trip_distance-my_distance)

# Find the min and the max of diff

max(taxis[,diff])
min(diff)

Answer 1

Create my_distance and diff

taxis_my_dist <- taxis  %>% 
  mutate(my_distance = hav_dist(pickup_longitude , pickup_latitude ,dropoff_longitude, dropoff_latitude ),
         diff = trip_distance-my_distance)

Find the min and the max of diff

max(taxis_my_dist$diff)
min(taxis_my_dist$diff)

Answer 2

Almost there!

library(dplyr)

taxis  %>% 
mutate(my_distance = hav_dist(pickup_longitude , pickup_latitude ,dropoff_longitude, dropoff_latitude ),
     diff = trip_distance-my_distance) %>%
summarise(
max = max(diff)
min = min(diff)    
)