This function maps points to their corresponding hexagonal bins.
Examples
r2 <- diff(range(s_curve_noise_umap$UMAP2))/diff(range(s_curve_noise_umap$UMAP1))
all_centroids_df <- gen_centroids(bin1 = 4, r2 = r2, q = 0.1)
umap_with_hb_id <- assign_data(data = s_curve_noise_umap_scaled,
centroid_df = all_centroids_df)
find_pts(data_hb = umap_with_hb_id)
#> # A tibble: 11 × 2
#> hexID pts_list
#> <int> <named list>
#> 1 5 <int [75]>
#> 2 19 <int [75]>
#> 3 10 <int [75]>
#> 4 31 <int [75]>
#> 5 14 <int [75]>
#> 6 28 <int [75]>
#> 7 9 <int [75]>
#> 8 23 <int [75]>
#> 9 15 <int [75]>
#> 10 6 <int [75]>
#> 11 27 <int [75]>