Demos/plot_points_demo.R

In deandevl/Rvisual3dPlot: Plot 3d Functions for R

library(rgl)
library(tibble)
library(dplyr)
library(Rvisual3dPlot)

iris_setosa <- iris %>%
  filter(Species == "setosa")
iris_versicolor <- iris %>%
  filter(Species == "versicolor")
iris_virginica <- iris %>%
  filter(Species == "virginica")

Rvisual3dPlot::plot_points(
  x = iris_setosa$Sepal.Length,
  y = iris_setosa$Petal.Length,
  z = iris_setosa$Sepal.Width,
  x_lab = "Sepal.Length",
  y_lab = "Petal.Length",
  z_lab = "Sepal.Width",
  pt_color = "green",
  bkg_color = "black",
  axis_color = "white",
  main_lab = "IRIS Plot"
)

Rvisual3dPlot::plot_points(
  x = iris_versicolor$Sepal.Length,
  y = iris_versicolor$Petal.Length,
  z = iris_versicolor$Sepal.Width,
  pt_color = "pink",
  draw_axis = FALSE
)

Rvisual3dPlot::plot_points(
  x = iris_virginica$Sepal.Length,
  y = iris_virginica$Petal.Length,
  z = iris_virginica$Sepal.Width,
  pt_color = "gold",
  draw_axis = FALSE,
  html_file = "Demos/plot_points.html"
)