# Load the iris dataset
data <- iris[, c("Sepal.Length", "Petal.Length", "Species")]
# Create comprehensive projection plots
plots <- create_projection_plots(
data = data,
class_column = "Species",
legend_position = "bottom",
add_grid_lines = FALSE
)
# Access individual plots
# plots$ellipse_plot
# plots$voronoi_plot
# plots$voronoi_plot_plus_ellipse
# Create standalone Voronoi plot
voronoi_plot <- create_voronoi_plot(
data = data,
class_column = "Species",
legend_position = "bottom",
add_grid_lines = FALSE
)
Run the code above in your browser using DataLab