有没有一种方法可以使用ggmap mapdist在R中一次运行多个2和from数据点？

library(ggmap)

# 创建一个包含多个2和from数据点的列表
points_list <- list(
  list(from = "New York", to = "Los Angeles"),
  list(from = "Chicago", to = "San Francisco"),
  list(from = "Boston", to = "Seattle")
)

# 定义一个函数，用于计算每个数据点的距离
calculate_distance <- function(point) {
  dist <- mapdist(from = point$from, to = point$to)
  return(dist)
}

# 使用lapply函数应用calculate_distance函数到每个数据点
distances <- lapply(points_list, calculate_distance)

# 打印每个数据点的距离
for (i in 1:length(distances)) {
  cat("From", points_list[[i]]$from, "to", points_list[[i]]$to, "distance:", distances[[i]]$km, "km\n")
}