devtools::install_github("abern041/porcelainporcupines")
library("porcelainporcupines")
View all palette names
names(porcelain_porcupines)
[1] "GA1" "ZABA" "HTBAHB" "Dreamland" "WarmGlow" "Landmark"
[7] "Bambi" "LP3" "Loser"
porcelain_porcupine("Dreamland")
porcelain_porcupine("HTBAHB")
porcelain_porcupine("ZABA")
porcelain_porcupine("GA1")
porcelain_porcupine("WarmGlow")
porcelain_porcupine("Landmark")
porcelain_porcupine("Bambi")
porcelain_porcupine("LP3")
porcelain_porcupine("Loser")
ggplot(mpg, aes(displ, hwy, colour = class)) +
+ geom_point() + scale_color_manual(values = porcelain_porcupine("GA1")) + theme_bw()
df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
dose=rep(c("D0.5", "D1", "D2"),2),
len=c(6.8, 15, 33, 4.2, 10, 29.5))
ggplot(data=df2, aes(x=dose, y=len, fill=supp)) +
geom_bar(stat="identity") + scale_fill_manual(values = porcelain_porcupine("LP3")) + theme_bw()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.