library(ggplot2)
library(palmerpenguins)
penguins |>
ggplot() +
geom_point(aes(x = flipper_length_mm, y = body_mass_g)) +
light_mode_r() +
mode_orientation_to_x()
penguins |>
ggplot() +
geom_bar(aes(y = island)) +
light_mode_r() +
mode_orientation_to_y()
Run the code above in your browser using DataLab