file.path <- system.file("extdata", "TCRB_sequencing", package = "LymphoSeq")
file.list <- readImmunoSeq(path = file.path)
productive.aa <- productiveSeq(file.list = file.list, aggregate = "aminoAcid")
commonSeqsPlot("TCRB_Day32_Unsorted", "TCRB_Day83_Unsorted",
productive.aa = productive.aa)
# Change the X and Y axises to log-10 scale
commonSeqsPlot("TCRB_Day32_Unsorted", "TCRB_Day83_Unsorted",
productive.aa = productive.aa) +
ggplot2::scale_x_log10() +
ggplot2::scale_y_log10() +
ggplot2::annotation_logticks(sides = "bl")
Run the code above in your browser using DataLab