library(DeclareDesign)
library(ggplot2)
pop <-
declare_model(
N = 14,
X = c("H", "A", "P", "P", "Y", " ",
"H", "O", "L", "I", "D", "A", "Y", "S"),
position = N:1,
index = match(X, LETTERS)
)
ggplot(data = pop(), aes(index, position, color = X)) +
geom_text(aes(label = X)) +
theme_bw() +
theme(legend.position = "none", axis.title = element_blank())