Closed
Description
library(tidyverse)
library(palmerpenguins)
penguins |>
ggplot(aes(x = flipper_length_mm,
y = body_mass_g,)) +
geom_smooth()
#> `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
#> Warning: Removed 2 rows containing non-finite outside the scale range
#> (`stat_smooth()`).
penguins |>
ggplot(aes(x = flipper_length_mm,
y = body_mass_g,)) +
layer(
geom = ggplot2::GeomSmooth,
stat = "smooth",
position = ggplot2::position_identity()
)
#> `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
#> Warning: Removed 2 rows containing non-finite outside the scale range
#> (`stat_smooth()`).
Created on 2023-12-08 with reprex v2.0.2