Open davidhodge931 opened 2 weeks ago
library(tidyverse) library(ggblanket) set_blanket() diamonds |> slice_sample(prop = 0.01) |> gg_point( x = carat, y = price, col = cut, ) diamonds |> slice_sample(prop = 0.01) |> mutate(cut = factor(cut, ordered = FALSE)) |> gg_point( x = carat, y = price, col = cut, ) diamonds |> slice_sample(prop = 0.01) |> gg_point( x = carat, y = price, col = cut, col_palette = jumble, col_legend_rev = TRUE, )