问题描述
现有多对出发点-目的地的坐标数据，通过osrm包可获得出发点到目的地之间的距离和时间，但是想知道：是否可能批量查询到特定条件下的公共交通路线、时间、换乘次数、花费信息？
问题细节
为了简化问题，下面以一对出发点-目的地作为例子来说明。因为目前在做的是日本的分析，因此就以日本的地点和谷歌地图为例。我们的出发点是京都大学（Kyoto University），目的地是大阪大学（Osaka University）。它们的相对位置如下图所示：
先加载所需的包以及构建数据：
library(dplyr)
library(sf)
library(tmap)
library(osrm)
place <-
c("Kyoto University", 35.0262707375379, 135.78082179729097,
"Osaka University", 34.82213718702254, 135.52447832612137) %>%
matrix(byrow = TRUE, ncol = 3) %>%
data.frame() %>%
rename_with(
~ c("location", "lat", "long")
) %>%
st_as_sf(coords = c("long", "lat")) %>%
st_set_crs(6668)
基于osrm包可以计算京都大学到大阪大学的自驾最短路径和所需时间，再可视化一下：
# 从京都大学到大阪大学之间最短路径
route <- osrmRoute(place[1, ], place[2, ])
# 路线地图
tm_shape(route) +
tm_lines(col = "darkgreen") +
tm_shape(place) +
tm_dots(size = 0.5, col = "red")
得到的路线地图如下：
查看这条路线的距离和时间，可见时间是44分钟，距离是41公里：
route
# Simple feature collection with 1 feature and 4 fields
# Geometry type: LINESTRING
# Dimension: XY
# Bounding box: xmin: 135.5154 ymin: 34.82022 xmax: 135.7809 ymax: 35.02588
# Geodetic CRS: JGD2011
# src dst duration distance geometry
# 1_2 1 2 44.28833 41.9081 LINESTRING (135.7809 35.025...
跟谷歌地图上查到的其中一条自驾路线差不多：
我的问题是：能否获得谷歌地图（或者其他地图软件或交通软件）查询到的公共交通的路线、距离、时间、花费信息呢？以谷歌为例，下图展示了京都大学到大阪大学的公共交通路线选择，获得全部路线，或者是获得某个条件下的选择（如时间最少，或者换乘最少）均可。
谢谢各位，欢迎任何有一点可行性的想法（不然我可能得手动查询，或者是放弃这个想法啦）。
