Quick interactive phylogenetic tree in R

interative_tree.R

# LOAD LIBS ---------------------------------------------------------------
library(ape)
library(ggtree)
library(plotly)

# CREATE A TREE -------------------------------------------------------------
n_samples <- 20
n_grp <- 4
tree <- ape::rtree(n = n_samples)

# CREATE SOME METADATA ----------------------------------------------------
id <- tree$tip.label
set.seed(42)
grp <- sample(LETTERS[1:n_grp], size = n_samples, replace = T)
dat <- tibble::tibble(id = id,
                      grp = grp)

# PLOT THE TREE -----------------------------------------------------------
p1 <- ggtree(tree)

metat <- p1$data %>%
  dplyr::inner_join(dat, c('label' = 'id'))

p2 <- p1 +
  geom_point(data = metat,
             aes(x = x,
                 y = y,
                 colour = grp,
                 label = id))

plotly::ggplotly(p2)

I don't know if you can see this, but this code works really well.
Is there any way to additionally display the bootstrap value or tip label as the ID of the sample rather than the group?