# NOT RUN {
# See geom_logo for examples
# Generate data
data(sequences)
library(ggplot2)
ggplot(data = ggfortify(sequences, peptide)) +
geom_logo(aes(x=position, y=bits, label=element,
group=interaction(position, element)),
alpha=0.5)
# }
Run the code above in your browser using DataLab