Intro Thoughts
Status Quo
library(tidyverse)
library(ggcube)
##
## Attaching package: 'ggcube'
## The following objects are masked from 'package:ggplot2':
##
## aes, element_rect
penguins_male_adelie <- penguins |> filter(sex == "male", species == "Adelie")
# penguins_male_adelie |> lm()
{penguins |>
ggplot() +
aes(bill_len, flipper_len, z = body_mass) +
coord_3d() +
geom_point_3d(ref_lines = TRUE) +
geom_smooth_3d(fill = NA, light = "none", method = "lm") +
aes(color = species)} |>
codehover::ch_hover()
## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_point3d()`).
## Removed 2 rows containing non-finite outside the scale range
## (`stat_point3d()`).
## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_smooth3d()`).
## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_point3d()`).
## Warning: Removed 2 rows containing non-finite outside the scale range
## (`stat_smooth3d()`).
| ggplot(penguins) + |
| aes(bill_len, flipper_len, z = body_mass) + |
| coord_3d() + |
| geom_point_3d(ref_lines = TRUE) + |
| geom_smooth_3d(fill = NA, light = "none", method = "lm") + |
| aes(color = species) |
Experiment
