# install.packages("devtools")
devtools::install_github("Gerardo-Manzanarez-Villasana/AvatarTLA")

library("AvatarTLA")

library(ggplot2)

# List all available palette names
names(avatar_palettes)
#>  [1] "Mai"          "Suki"         "Iroh"         "FireNation"   "AirNomads"   
#>  [6] "EarthKingdom" "WaterTribe"   "Appa"         "Sokka"        "Toph"        
#> [11] "Azula"        "Aang"         "Zuko"         "Katara"       "Ty"          
#> [16] "Momo"

avatar_palette("Aang")

avatar_palette("Toph")

avatar_palette("Mai")

avatar_palette("Suki")

ggplot(mpg, aes(x = drv, fill = drv)) +
  geom_bar() +
  scale_fill_manual(values = avatar_palette("Suki")) +
  theme_minimal() +
  labs(
    title = "Drive Trains with Suki Palette",
    x = "Drive Train",
    y = "Count"
  ) +
  theme(legend.position = "none")

avatar_palette("Momo")

avatar_palette("Iroh")

avatar_palette("Appa")

avatar_palette("Sokka")

avatar_palette("Azula")

ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_boxplot() +
  scale_fill_manual(values = avatar_palette("Azula", 3)) +
  theme_light() +
  labs(
    title = "Sepal Length Across Species",
    x = "Species",
    y = "Sepal Length (cm)"
  )

avatar_palette("Zuko")

avatar_palette("Katara")

avatar_palette("Ty")

avatar_palette("FireNation")

avatar_palette("AirNomads")

avatar_palette("EarthKingdom")

ggplot(faithfuld, aes(x = eruptions, y = waiting, fill = density)) +
  geom_tile() +
  scale_fill_gradientn(colors = avatar_palette("EarthKingdom", 100, type = "continuous")) +
  theme_minimal() +
  labs(
    title = "Old Faithful Eruption Density",
    x = "Eruption Duration (min)",
    y = "Waiting Time (min)",
    fill = "Density"
  )

avatar_palette("WaterTribe")