Compute sparse scagnostic measure using MST
sc_sparse(x, y)
# S3 method for scree
sc_sparse(x, y = NULL)
# S3 method for default
sc_sparse(x, y)
# S3 method for igraph
sc_sparse(mymst, x)
require(ggplot2)
require(tidyr)
require(dplyr)
data(anscombe_tidy)
ggplot(anscombe_tidy, aes(x=x, y=y)) +
geom_point() +
facet_wrap(~set, ncol=2, scales = "free")
sc_sparse(anscombe$x1, anscombe$y1)
#> [1] 0.2712519
sc_sparse(anscombe$x2, anscombe$y2)
#> [1] 0.250573
sc_sparse(anscombe$x3, anscombe$y3)
#> [1] 0.2528383
sc_sparse(anscombe$x4, anscombe$y4)
#> Warning: success: collinearities reduced through jitter
#> Warning: dataset started with 3 colinear points, jitter added!
#> [1] 0.2138132
ggplot(datasaurus_dozen, aes(x=x, y=y)) +
geom_point() +
facet_wrap(~dataset, ncol=3, scales = "free")
sc_sparse(datasaurus_dozen_wide$away_x, datasaurus_dozen_wide$away_y)
#> [1] 0.08238522
sc_sparse(datasaurus_dozen_wide$bullseye_x, datasaurus_dozen_wide$bullseye_y)
#> [1] 0.0818191
sc_sparse(datasaurus_dozen_wide$circle_x, datasaurus_dozen_wide$circle_y)
#> [1] 0.05425819
sc_sparse(datasaurus_dozen_wide$dino_x, datasaurus_dozen_wide$dino_y)
#> [1] 0.05536008
sc_sparse(datasaurus_dozen_wide$dots_x, datasaurus_dozen_wide$dots_y)
#> [1] 0.01903525
sc_sparse(datasaurus_dozen_wide$h_lines_x, datasaurus_dozen_wide$h_lines_y)
#> [1] 0.07644788
sc_sparse(datasaurus_dozen_wide$high_lines_x, datasaurus_dozen_wide$high_lines_y)
#> [1] 0.06784409
sc_sparse(datasaurus_dozen_wide$slant_down_x, datasaurus_dozen_wide$slant_up_y)
#> [1] 0.0871048
sc_sparse(datasaurus_dozen_wide$star_x, datasaurus_dozen_wide$star_y)
#> [1] 0.07266556
sc_sparse(datasaurus_dozen_wide$v_lines_x, datasaurus_dozen_wide$v_lines_y)
#> [1] 0.05391957
sc_sparse(datasaurus_dozen_wide$wide_lines_x, datasaurus_dozen_wide$wide_lines_y)
#> [1] 0.06563456
sc_sparse(datasaurus_dozen_wide$x_shape_x, datasaurus_dozen_wide$x_shape_y)
#> [1] 0.06010033