在 R 中创建一个数据框，其中包含坐标和一个具有 TRUE 或 FALSE 的列，如果它们在来自另一组的至少一个坐标的 5 公里半径内

Question

正如您在标题中看到的那样，我有一些关于房屋的坐标，还有一些关于城市中所有地铁站的坐标，我想要创建一个包含房屋坐标的数据框和一个包含地铁站数量的列距离每栋房屋 5 公里半径。 这是我的数据结构：

 lat <- c(38.00134, 37.99630)
    lon <- c(23.72457, 23.72266)
    houses <- cbind(lon, lat)
    
    
    lat <- c(37.99738, 38.01358, 37.99738, 38.00666, 37.94054 )
    lon <- c(23.66746, 23.82181, 23.66746, 23.69948, 23.74072)
    SubwayStations <- cbind(lon, lat)

我从类似的问题中尝试了这段代码，但它不是我想要的 output：

 coord_df <- data.frame(houses, 
                       within_5km = geosphere::distm(
                         houses, 
                         SubwayStations
                       ) / 1000 < 5)

我认为它需要某种 for 循环，但我无法弄清楚。 我需要的 output 是一个有 2 列的数据框，一个用于所有房屋坐标，一个用于提供每个房屋半径内的地铁站数量。