In k-hench/kh3d: Custom rgl helpers

knitr::opts_chunk$set(echo = TRUE)

About the package:

The kh3d package is a wrapper to plot 3d surfaces using the R package rgl that also depends on the tidyverse.

The core of the code was copied from sthda and than modified.

Currently this is a one function package, providing the funtion kh3_plot() which will takes a 3-column tibble (with the columns x,y & z) and plots the according 3d surface.

library(kh3d)

n_steps <- 13
wave <- tibble(x = 2*pi*(1:n_steps)/n_steps,
               y = x) %>%
  purrr::cross_df() %>%
  mutate( z = sin(x)*sin(y))

wave

The parameter aspect defines the aspect rario of the axes x,y & z.

wave %>%
  kh3_plot(.,aspect = c(1,1,1))

Further parameters define the surfcae color, the axis labels, the surface shininess and the view angle. (Many of those parameters are original rgl parameters that will be passed on to rgl::surface3d().)

wave %>%
  kh3_plot(.,
           color = rgb(.1,.1,.1), 
           xlab = 'x',
           ylab = 'y',
           zlab = 'z',
           aspect = c(1,1,1),
           shininess = 4,
           phi = -90)

The are three different style[s] (surface, lines & points). This parameter switches the surface apparence.

wave %>%
  kh3_plot(., color = 'darkgreen', 
           aspect = c(1,1,1),
           style = 'points',
             shininess = 4)

It is possible to omit the axis ticks and the lines drawn onto the surface by toggeling show_ticks and line_overlay to FALSE.

board <- tibble(x = rep(c(1,1.05,1.2,1.6,7),5)*10,
       y = rep(c(1,1.05,1.2,1.6,7),each = 5)*10,
       z = x*y/250)

board  %>%
  kh3_plot(., color = kh_clr[2],
           show_ticks = FALSE,
           line_overlay = FALSE,
           aspect = c(1,1,1),
           style = 'surface',
           shininess = 4)

For completenes, here is an example of the line plot-type.

board  %>%
  kh3_plot(., color = kh_clr[2], 
           aspect = c(1,1,1),
           style = 'lines',
           shininess = 4,phi = -50)

---

k-hench/kh3d documentation built on July 8, 2019, 3:33 a.m.