R recipes step_geodist 两个地点之间的距离

step_geodist(
  recipe,
  lat = NULL,
  lon = NULL,
  role = "predictor",
  trained = FALSE,
  ref_lat = NULL,
  ref_lon = NULL,
  is_lat_lon = TRUE,
  log = FALSE,
  name = "geo_dist",
  columns = NULL,
  keep_original_cols = TRUE,
  skip = FALSE,
  id = rand_id("geodist")
)

其他多元变换步骤：step_classdist_shrunken() , step_classdist() , step_depth() , step_ica() , step_isomap() , step_kpca_poly() , step_kpca_rbf() , step_kpca() , step_mutate_at() , step_nnmf_sparse() , step_nnmf() , step_pca() , step_pls() , step_ratio() , step_spatialsign()

data(Smithsonian, package = "modeldata")

# How close are the museums to Union Station?
near_station <- recipe(~., data = Smithsonian) %>%
  update_role(name, new_role = "location") %>%
  step_geodist(
    lat = latitude, lon = longitude, log = FALSE,
    ref_lat = 38.8986312, ref_lon = -77.0062457,
    is_lat_lon = TRUE
  ) %>%
  prep(training = Smithsonian)

bake(near_station, new_data = NULL) %>%
  arrange(geo_dist)
#> # A tibble: 20 × 4
#>    name                                        latitude longitude geo_dist
#>    <fct>                                          <dbl>     <dbl>    <dbl>
#>  1 National Postal Museum                          38.9     -77.0     367.
#>  2 Renwick Gallery                                 38.9     -77.0     932.
#>  3 National Museum of the American Indian          38.9     -77.0    1571.
#>  4 Smithsonian American Art Museum                 38.9     -77.0    1636.
#>  5 National Portrait Gallery                       38.9     -77.0    1646.
#>  6 National Air and Space Museum                   38.9     -77.0    1796.
#>  7 Hirshhorn Museum and Sculpture Garden           38.9     -77.0    2008.
#>  8 National Museum of Natural History              38.9     -77.0    2073.
#>  9 Arthur M. Sackler Gallery                       38.9     -77.0    2108.
#> 10 Arts and Industries Building                    38.9     -77.0    2124.
#> 11 Smithsonian Institution Building                38.9     -77.0    2193.
#> 12 National Museum of African Art                  38.9     -77.0    2202.
#> 13 Freer Gallery of Art                            38.9     -77.0    2266.
#> 14 National Museum of American History             38.9     -77.0    2393.
#> 15 National Museum of African American Histor…     38.9     -77.0    2611.
#> 16 National Zoological Park                        38.9     -77.1    5246.
#> 17 Anacostia Community Museum                      38.9     -77.0    5332.
#> 18 Steven F. Udvar-Hazy Center                     38.9     -77.4   38111.
#> 19 George Gustav Heye Center                       40.7     -74.0  324871.
#> 20 Cooper Hewitt, Smithsonian Design Museum        40.8     -74.0  334041.

tidy(near_station, number = 1)
#> # A tibble: 1 × 7
#>   latitude longitude ref_latitude ref_longitude is_lat_lon name     id    
#>   <chr>    <chr>            <dbl>         <dbl> <lgl>      <chr>    <chr> 
#> 1 latitude longitude         38.9         -77.0 TRUE       geo_dist geodi…