# NOT RUN {
scales:::show_col(ggcolors(n=9))
n <- 10
ggcolors(n)
plot(
1:n,
pch=16,
cex=2,
col= ggcolors(n)
)
barplot(
stats::setNames(5:14, LETTERS[5:14]),
col = ggcolors(n),
border = ggcolors(n)
)
boxplot(
x ~ y,
data = data.frame(x = rnorm(1000),
y = sample(LETTERS[5:14], 1000, TRUE)),
border = ggcolors(n),
lwd=2
)
pie(
stats::setNames(5:14, LETTERS[5:14]),
col = ggcolors(n),
border = ggcolors(n)
)
# }
Run the code above in your browser using DataLab