Quarto

library(tidyverse)

diamonds |>
  filter(color == "E") |>
  ggplot(aes(carat, price)) +
  geom_point()

diamonds |>
  filter(color == "I") |>
  ggplot(aes(carat, price)) +
  geom_point()