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

Question

已經給出了一個名為出租車的數據框，現在我必須執行以下操作，但我被困在最后一步......

# 創建 my_distance 和 diff

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

# 找出 diff 的最小值和最大值

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

Answer 1

創建 my_distance 和 diff

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

找出 diff 的最小值和最大值

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

Answer 2

差不多好了！

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)    
)