Skip to content

Linking with static plot seems to have some errors #117

@dicook

Description

@dicook

When linking between a static plot and the tour, using code from your upcoming paper, the points that have been brushed don't necessarily match the corresponding points in the tour view.

image

See that brushing the small cluster, shows as this cluster and the smile in the tour view. Is there a problem linking the row to row?

Here is the code to reproduce the problem.

# remotes::install_github("dicook/mulgar")
library(mulgar)
library(uwot)
library(detourr)
library(dplyr)
library(crosstalk)
library(plotly)

set.seed(42)
cnl_umap <- umap(clusters_nonlin)
umap_df <- data.frame(umapX = cnl_umap[, 1],
                      umapY = cnl_umap[, 2])

cnl_df <- bind_cols(clusters_nonlin, umap_df)
shared_cnl <- SharedData$new(cnl_df)

detour_plot <- detour(shared_cnl, tour_aes(
  projection = starts_with("x"))) |>
    tour_path(grand_tour(2), fps = 60) |>
       show_scatter(alpha = 0.7, axes = FALSE,
                    width = "100%", height = "450px")

tsne_plot <- plot_ly(shared_cnl,
                    x = ~umapX, 
                    y = ~umapY,
                    color = I("black"),
                    height = 450) %>%
    highlight(on = "plotly_selected", 
              off = "plotly_doubleclick") %>%
    add_trace(type = "scatter", 
              mode = "markers")

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions