Intro Thoughts
Status Quo
library(tidyverse)
Experiment
library(mall)
options(.mall_chat = ellmer::chat_google_gemini())
library(tidyverse)
my_palette <- c("grey9", "violet", "darkgreen", "midnightblue",
"turquoise", "darkorange", "grey", "brown",
"darkred", "burlywood", "goldenrod2", "slateblue")
my_palette |>
tibble(pal_colors = _) |>
ggplot() +
aes(x = pal_colors, y = "all",
fill = I(pal_colors)) +
geom_tile()
'tribble(~item, ~times,
"parrot", 25,
"peacock", 20,
"dolphin", 30,
"sloth", 22) |>
llm_classify(col = item,
labels = my_palette,
pred_name = "color"
) |>
ggplot() +
aes(x = item, y = times) +
geom_col() +
aes(fill = I(color))' |>
ggram::ggram(code = _, title = "LLM assisted semantic color encoding using {mall}!🎨🎉", subtitle = "Colors selected with mall::llm_vec_classify() which translated \n from an animal to a specific color among 12 options in a pallet 👀🤯")
