Demos/plot_lines_demo.R

In deandevl/Rvisual3dPlot: Plot 3d Functions for R

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

(lines_2 <- tibble(
  x = c(0,1,0,1),
  y = c(0,2,0,2),
  z = c(0,5,0,0)
))
device_id <- Rvisual3dPlot::plot_lines(
  lines = lines_2,
  line_color = "green",
  bkg_color = "black",
  axis_color = "white"
)

(lines_1 <- tibble(
  x = c(1,1),
  y = c(2,2),
  z = c(5,0)
))
Rvisual3dPlot::plot_lines(
  lines = lines_1,
  line_color = "yellow",
  draw_axis = FALSE
)