# NOT RUN {
library(ggplot2)
data(sequences)
ggplot(data = ggfortify(sequences, peptide, treatment = class)) +
geom_logo(aes(x = class, y = bits, fill = Water, label = element)) +
facet_wrap(~position)
ggplot(data = ggfortify(sequences, peptide, treatment = class)) +
geom_logo(aes(x = class, y = bits, fill = Polarity, label = element)) +
facet_wrap(~position, ncol = 18) +
theme(legend.position = "bottom")
# }
Run the code above in your browser using DataLab