This is a wrapper function used by explore_space_pca()
and
should be be called directly by the user
add_start(dt, start_size = 5, start_alpha = 1, start_color = NULL, ...)
A data object from the running the optimisation algorithm in guided tour
numeric; the size of start point
numeric; the alpha of start point
the variable to be coloured by
other aesthetics inherent from explore_space_pca()
a wrapper for drawing start points in explore_space_pca()
Other draw functions:
add_anchor()
,
add_anno()
,
add_dir_search()
,
add_end()
,
add_interp_last()
,
add_interp()
,
add_interrupt()
,
add_search()
,
add_space()
,
add_theo()
library(ggplot2)
# construct the space and start df for plotting
space <- tibble::tibble(x0 = 0, y0 = 0, r = 5)
start <- holes_1d_geo %>%
compute_pca() %>%
purrr::pluck("aug") %>%
clean_method() %>%
get_start()
ggplot() +
add_space(dt = space) +
add_start(dt = start, start_color = info) +
theme_void() +
theme(aspect.ratio = 1)