As an example we will use measurements of penguins made at Palmer Station, Antarctica.
Since the measurements are in different units, we supply an appropriate scaling.
library(langevitour)
library(palmerpenguins)
completePenguins <- na.omit(penguins[,c(1,3,4,5,6)])
completePenguins
#> # A tibble: 342 × 5
#> species bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
#> <fct> <dbl> <dbl> <int> <int>
#> 1 Adelie 39.1 18.7 181 3750
#> 2 Adelie 39.5 17.4 186 3800
#> 3 Adelie 40.3 18 195 3250
#> 4 Adelie 36.7 19.3 193 3450
#> 5 Adelie 39.3 20.6 190 3650
#> 6 Adelie 38.9 17.8 181 3625
#> 7 Adelie 39.2 19.6 195 4675
#> 8 Adelie 34.1 18.1 193 3475
#> 9 Adelie 42 20.2 190 4250
#> 10 Adelie 37.8 17.1 186 3300
#> # … with 332 more rows
scale <- apply(completePenguins[,-1], 2, sd)*4
langevitour(
completePenguins[,-1], completePenguins$species,
scale=scale, pointSize=2, elementId="myWidget")Things to try:
Drag labels onto the plot.
Turn on a guide.
Experiment with “damping” and “heat” in the hamburger menu.
When only three measurements are shown, your eyes will interpret the display as 3D. Hide measurements by unchecking the checkbox on their label.