file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
topSeqsPlot(list = file.list, top = 10)
# Display the number of sequences at the top of bar plot and add a title
n <- as.character(lapply(file.list, nrow))
topSeqsPlot(list = file.list, top = 10) +
ggplot2::annotate("text", x = 1:length(file.list), y = 105, label = n, color = "black") +
ggplot2::expand_limits(y = c(0, 110)) + ggplot2::ggtitle("Figure Title") +
ggplot2::scale_x_discrete(limits = names(file.list))
Run the code above in your browser using DataLab