powered by
Plot OPTICS reachability plot.
ggplot_optics( optics_obj, groups = NULL, colors = if (!is.null(groups)) nice_palette(groups), segment_size = 300/nrow(df_optics) )
ggplot
dbscan::optics object
Optional vector defining groups of OPTICS observations
If groups specified, vector of colors for each group
Size for geom_segment
opticskxi
data('multishapes') optics_obj <- dbscan::optics(multishapes[1:2]) ggplot_optics(optics_obj) ggplot_optics(optics_obj, groups = opticskxi(optics_obj, n_xi = 5, pts = 30))
Run the code above in your browser using DataLab