R语言中mutate配合google_distance计算距离报错求助

你遇到的报错如下：

Error in mutate():
! Problem while computing distance = google_distance(...).
✖ distance must be size 294 or 1, not 5.

报错核心原因是googleway::google_distance() 并非逐行处理的向量化函数：它底层调用Google Distance Matrix API，单次请求会返回传入的所有起点到所有终点的距离矩阵（嵌套列表结构），而非和输入数据行数等长的一对一配对结果。你在mutate()中直接传入整列origin和destination时，函数单次执行返回的结果长度仅为5，和原数据集294行的长度要求不匹配，因此触发长度校验错误。

• 单步调试：取1-2组测试坐标单独调用google_distance()，查看返回值结构，可发现返回值是包含多组起终点组合结果的嵌套列表，并非单条距离值。
• 核对文档：Google Distance Matrix API本身的设计是返回起终点笛卡尔积的距离矩阵，单次请求最多支持25个起点、25个终点，不会自动按传入顺序做一对一配对计算。
• 校验mutate规则：dplyr::mutate()要求新生成列的长度要么和原表行数完全一致，要么是长度为1的标量，长度为5的返回结果显然不符合规则。

使用逐行迭代的方式调用接口，保证每次请求只传入1组起点和终点，拿到单组结果后统一解析提取需要的距离字段，参考代码如下：

library(tidyverse)
library(googleway)

# 提前设置你的Google Maps API密钥
set_key("替换为你的实际API KEY")

distances <- distances %>%
  mutate(
    # 逐行传入对应起终点，存储接口原始返回结果
    api_result = map2(
      .x = origin,
      .y = destination,
      .f = ~google_distance(origins = .x, destinations = .y, mode = "driving")
    ),
    # 提取驾车距离数值（单位：米）
    distance_m = map_dbl(
      .x = api_result,
      .f = ~.x$rows$elements[[1]]$distance$value
    ),
    # 可选：提取格式化的距离文本
    distance_text = map_chr(
      .x = api_result,
      .f = ~.x$rows$elements[[1]]$distance$text
    ),
    # 可选：提取驾车时长数值（单位：秒）
    duration_s = map_dbl(
      .x = api_result,
      .f = ~.x$rows$elements[[1]]$duration$value
    )
  ) %>%
  # 不需要保留原始返回结果的话可以删掉这列
  select(-api_result)

注意事项 #

• 逐行调用会产生和数据行数等量的API请求，294条数据的请求量很小，注意核对Google Maps API的免费配额、计费规则即可。
• 如果存在坐标格式错误、API权限不足等问题，部分请求可能返回异常结果，可以用safely()包装google_distance()函数做错误捕获，避免整个计算流程中断。
• 不要尝试直接将整列坐标传入google_distance()做向量化计算，该函数不支持自动按行配对计算，只会返回全量组合的距离矩阵。

内容的提问来源于stack exchange，提问作者Umair Shariff