FLAMES
16 February 2023
Package
FLAMES 1.4.3
Contents
1 FLAMES
The FLAMES package provides a framework for performing single-cell and bulk read full-length analysis of mutations and splicing. FLAMES performs cell barcode and UMI assignment from nanopore reads as well as semi-supervised isoform detection and quantification. FLAMES is designed to be an easy and quick to use, powerful workflow for isoform detection and quantification, splicing analysis and mutation detection, and seeks to overcome the limitations of other tools, such as an inability to process single cell data, and a focus on cell barcode and UMI assignment (Tian et al. 2020).
This R package was created to simplify installation and execution of the FLAMES python module, which supports the article Comprehensive characterization of single cell full-length isoforms in human and mouse with long-read sequencing by Tian et al. (2020).
Figure 1: FLAMES pipeline workflow summary
Input to FLAMES are fastq files generated from the long-read platform. Using a cell barcode allow-list (e.g. barcode list obtained from short-read sequencing), the find_barcode() function locates the barcode sequencing in the long-reads and trims the cell barcodes and the flanking UMI sequence. The pipeline then calls minimap_align(), a minimap2 wrapper, to align the demultiplex long-reads to the reference genome. Next, find_isoform() is called to identify novel isoforms using the alignment, creating an updated transcript assembly. The demultiplexed reads are then aligned to the transcript assembly by the function minimap_realign(). Finally, FLAMES calls quantify() to quantify the transcript counts using the (re-)alignment file.
Figure 1 summerise the steps of the pipeline described above. The pipeline functions (sc_long_pipeline, bulk_long_pipeline, sc_long_multisample_pipline) execute the steps sequentially and return SingleCellExperiment object, SummarizedExperiment object and a list of SingleCellExperiment objects respectivly.
For read alignment and realignment, FLAMES uses minimap2, a versatile alignment program for aligning sequences against a reference database (Li 2018). This software needs to be downloaded prior to using the FLAMES pipeline, and can be found at https://github.com/lh3/minimap2.
2 FLAMES Pipeline Execution
This vignette will detail the process of running the FLAMES pipeline. It details the execution of both the single cell pipeline (sc_long_pipeline()) and the bulk data pipeline (bulk_long_pipeline()).
2.1 FLAMES Single Cell Pipeline
2.1.1 Environment setup
To get started, the pipeline needs access to a gene annotation file in GFF3 or GTF format, a directory containing one or more FASTQ files (which will be merged as pre-processing), a genome FASTA file, as well as the file path to minimap2, and the file path to the directory to hold output files.
The single cell pipeline can demultiplex the input data before running, if required. This can be disabled by setting the match_barcode argument to FALSE when calling the pipeline. This example dataset has already been demultiplexed.
For this example, the required files are downloaded from GitHub using BiocFileCache (Shepherd and Morgan 2021).
temp_path <- tempfile()
bfc <- BiocFileCache::BiocFileCache(temp_path, ask = FALSE)
file_url <-
"https://raw.githubusercontent.com/OliverVoogd/FLAMESData/master/data"
annot <- bfc[[names(BiocFileCache::bfcadd(
bfc, "Annotation",
file.path(file_url, "gencodeshortened.gtf")
))]]
genome_fa <- bfc[[names(BiocFileCache::bfcadd(
bfc,
"Genomefa",
file.path(file_url, "GRCh38shortened.fa")
))]]
fastq <- bfc[[names(BiocFileCache::bfcadd(
bfc, "Fastq", file.path(file_url, "sc_align2genome.sample.fastq.gz")))]]
# setup other environment variables
outdir <- tempfile()
dir.create(outdir)
config_file <- FLAMES::create_config(outdir, type = "SIRV")
#> Registered S3 method overwritten by 'GGally':
#> method from
#> +.gg ggplot2
#> Writing configuration parameters to: /tmp/RtmprY0KEd/filec3d270c96db3/config_file_50130.jsonThe optional argument config_file can be given to both bulk_long_pipeline() and sc_long_pipeline() in order to customise the execution of the pipelines. It is expected to be a JSON file, and an example can be found by calling FLAMES::create_config, which returns the path to a copy of the default JSON configuration file. The values from the default configs can be altered by either editing the JSON file manually, or passing additional arguments to FLAMES::create_config, for example, FLAMES::create_config(outdir, type = "sc_5end", min_sup_cnt = 10) with create a copy of the default config for 5’ end nanopore single cell reads, with the min_sup_cnt value (minimal number of supporting reads for a novel isoform to pass filtering) changed to 10.
This vignette uses the default configuration file created for SIRV reads.
2.1.2 FLAMES execution
Once the initial variables have been setup, the pipeline can be run using:
library(FLAMES)
# do not run if minimap2 cannot be found
if (is.character(locate_minimap2_dir())) {
sce <- sc_long_pipeline(
annotation = annot, fastq = fastq, genome_fa = genome_fa,
outdir = outdir, config_file = config_file, match_barcode = FALSE
)
}
#> Warning in base::system2(command = "which", args = c("minimap2"), stdout =
#> TRUE, : running command ''which' minimap2 2>&1' had status 1As stated above, the example dataset has already been demultiplexed, so match_barcode=FALSE should be set to skip the preprocessing of the barcodes.
If, however, the input fastq files need to be demultiplexed, then the reference_csv argument will need to be specified - reference_csv is the file path to a cell barcode allow-list, as a text file with one barcode per line. The filtered_feature_bc_matrix/barcodes.tsv.gz from cellranger outputs can be used to create such allow-list, with zcat barcodes.tsv.gz | cut -f1 -d'-' > allow-list.csv.
The pipeline can alse be run by calling the consituent steps sequentially:
library(FLAMES)
minimap2_dir <- locate_minimap2_dir()
#> Warning in base::system2(command = "which", args = c("minimap2"), stdout =
#> TRUE, : running command ''which' minimap2 2>&1' had status 1
if (is.character(minimap2_dir)) { # do not run if minimap2 cannot be found
config <- jsonlite::fromJSON(config_file)
# find_barcode(...)
genome_bam <- minimap2_align(
config = config, fa_file = genome_fa, fq_in = fastq, annot = annot,
outdir = outdir, minimap2_dir = minimap2_dir
)
find_isoform(
annotation = annot, genome_fa = genome_fa,
genome_bam = genome_bam, outdir = outdir, config = config
)
minimap2_realign(
config = config, fq_in = fastq,
outdir = outdir, minimap2_dir = minimap2_dir
)
quantify(annotation = annot, outdir = outdir, config = config)
sce <- create_sce_from_dir(outdir = outdir, annotation = annot)
}2.2 Visulisation
The combine_sce() and sc_annotate_plots() can be used for visulisation with experiment designs similar to FLT-seq. The combine_sce() function combines the SingleCellExperiment objects of 1) the short-read gene counts from the larger subsample, 2) the short-read gene counts from the smaller subsample and 3) the transcript counts from the larger subsample into a MultiAssayExperiment object. The sc_annotate_plots() function can then use it to produce annotated plots.
library(FLAMES)
library(MultiAssayExperiment)
# load scm_lib80, scm_lib80 and scm_lib20
source(system.file("examples/scmixology1.R", package = "FLAMES"))
scm_lib80 <- scuttle::addPerCellQC(scm_lib80)
scm_lib20 <- scuttle::addPerCellQC(scm_lib20)
qc_80 <- scuttle::quickPerCellQC(colData(scm_lib80))
qc_20 <- scuttle::quickPerCellQC(colData(scm_lib20))
qc_80$discard[scm_lib80$sum < 10000] <- TRUE
qc_20$discard[scm_lib20$sum < 20000] <- TRUE
combined_sce <- combine_sce(
short_read_large = scm_lib80[,!qc_80$discard],
short_read_small = scm_lib20[,!qc_20$discard],
long_read_sce = scm_lib20_transcripts,
remove_duplicates = FALSE)
plots <- sc_annotate_plots(gene = "ENSG00000108107",
multiAssay = combined_sce)
#> Running PCA for experiments(multiAssay)$gene_counts ...
#> Running UMAP for experiments(multiAssay)$gene_counts ...
#> Imputing transcript counts ...
#> Plotting expression UMAPs ...
#> Cluster annotation not found, heatmaps skipped.
scater::plotReducedDim(
experiments(plots[["multiAssay"]])$gene_counts,
dimred = "PCA",
colour_by = colData(plots[["multiAssay"]]
[,,"gene_counts"])[,"Lib_small",drop=FALSE])
plots[["plot_umap"]]
plots[["combined_isoform_plot"]]
2.2.1 FLAMES termination
The directory outdir now contains several output files returned from this pipeline. The output files generated by this pipeline are:
transcript_count.csv.gz- a transcript count matrix (also contained in the output SummarizedExperiment or SingleCellExperiment)isoform_annotated.filtered.gff3- found isoform information in gff3 formattranscript_assembly.fa- transcript sequence from the isoformsalign2genome.bamsorted BAM file with reads aligned to genome (intermediate FLAMES step)realign2transcript.bam- sorted realigned BAM file using the transcript_assembly.fa as reference (intermediate FLAMES step)tss_tes.bedgraph- TSS TES enrichment for all reads (for QC)
The pipeline also returns a SummarizedExperiment or SingleCellExperiment object, depending on the pipeline run, containing the data from transcript_count.csv.gzand isoform_annotated.filtered.gff3 (Amezquita et al. 2020) (Morgan et al. 2020). This SummarizedExperiment (or SingleCellExperiment) object contains the same data as present in the outdir directory, and is given to simplify the process of reading the transcript count matrix and annotation data back into R, for further analysis.
2.3 FLAMES Bulk Pipeline
A basic example of the execution of the FLAMES bulk pipeline is given below. The process for this is essentially identical to the above example for single cell data.
2.3.1 Environment setup
To get started, the pipeline needs access to a gene annotation file in GFF3 or GTF format, a directory containing one or more FASTQ files (which will be merged as pre-processing), a genome FASTA file, as well as the file path to minimap2, and the file path to the directory to hold output files.
For this example, these files are downloaded from GitHub using BiocFileCache (Shepherd and Morgan 2021).
temp_path <- tempfile()
bfc <- BiocFileCache::BiocFileCache(temp_path, ask = FALSE)
file_url <-
"https://raw.githubusercontent.com/OliverVoogd/FLAMESData/master/data"
annot <- bfc[[names(BiocFileCache::bfcadd(
bfc, "Annotation",
file.path(file_url, "SIRV_isoforms_multi-fasta-annotation_C_170612a.gtf")
))]]
genome_fa <- bfc[[names(BiocFileCache::bfcadd(
bfc, "Genomefa",
file.path(file_url, "SIRV_isoforms_multi-fasta_170612a.fasta")
))]]
# download the two fastq files, move them to a folder to be merged together
fastq1 <- bfc[[names(BiocFileCache::bfcadd(bfc, "Fastq1",
file.path(file_url, "fastq", "sample1.fastq.gz")))]]
fastq2 <- bfc[[names(BiocFileCache::bfcadd(bfc, "Fastq2",
file.path(file_url, "fastq", "sample2.fastq.gz")))]]
# the downloaded fastq files need to be in a directory to be merged together
fastq_dir <- file.path(temp_path, "fastq_dir")
dir.create(fastq_dir)
file.copy(c(fastq1, fastq2), fastq_dir)
#> [1] TRUE TRUE
unlink(c(fastq1, fastq2)) # the original files can be deleted
# setup other environment variables
outdir <- tempfile()
dir.create(outdir)
config_file <- FLAMES::create_config(outdir)
#> Writing configuration parameters to: /tmp/RtmprY0KEd/filec3d26c5e6f5a/config_file_50130.json2.3.2 FLAMES execution
Once the environment has been setup, the pipeline can be executed by running:
library(FLAMES)
if (is.character(locate_minimap2_dir())) {
summarizedExperiment <- bulk_long_pipeline(
annot = annot, fastq = fastq_dir, outdir = outdir,
genome_fa = genome_fa, minimap2_dir = minimap2_dir,
config_file = config_file
)
}
#> Warning in base::system2(command = "which", args = c("minimap2"), stdout =
#> TRUE, : running command ''which' minimap2 2>&1' had status 12.3.3 FLAMES termination
After the bulk pipeline has completed, the output directory contains the same files as the single cell pipeline produces. bulk_long_pipeline also returns a SummarizedExperiment object, containing the same data as the SingleCellExperiment as above (Amezquita et al. 2020) (Morgan et al. 2020).
2.4 Running with Slurm
Since the barcode demultiplexing step, isoform identification step and quantification step is currently single threaded, job scheduler (such as Slurm) users may want to allocate different resources for each step. This can be achieved by calling the individual functions (find_isoform, minimap2_realign etc.) sequentially, or by changing the configuration file. The Bash script below demonstrates how this can be done with a single R script calling the pipeline function.
#!/bin/bash -x
# set all steps to false
sed -i '/"do_/s/true/false/' config_sclr_nanopore_5end.json
# set do_genome_alignment to true
sed -i '/do_genome_alignment/s/false/true/' \
config_sclr_nanopore_5end.json
srun -c 20 --mem 64GB \
Rscript flames_pipeline.R && \
sed -i '/"do_/s/true/false/' \
config_sclr_nanopore_5end.json && \
sed -i '/do_isoform_identification/s/false/true/' \
config_sclr_nanopore_5end.json && \
srun -c 1 --mem 64GB --ntasks=1 \
Rscript flames_pipeline.R && \
sed -i '/"do_/s/true/false/' \
config_sclr_nanopore_5end.json && \
sed -i '/do_read_realignment/s/false/true/' \
config_sclr_nanopore_5end.json && \
srun -c 20 --mem 64GB --ntasks=1 \
Rscript flames_pipeline.R && \
sed -i '/"do_/s/true/false/' \
config_sclr_nanopore_5end.json && \
sed -i '/do_transcript_quantification/s/false/true/' \
config_sclr_nanopore_5end.json && \
srun -c 1 --mem 64GB --ntasks=1 \
Rscript flames_pipeline.R && \
echo "Pipeline finished"The Bash script can then be executed inside a tmux or screen session with:
./flames.sh | tee -a bash.log; tail bash.log \
| mail -s "flames pipeline ended" user@example.com2.5 FLAMES on Windows
Due to FLAMES requiring minimap2 and pysam, FLAMES is currently unavaliable on Windows.
3 Session Info
#> R version 4.2.2 (2022-10-31)
#> Platform: aarch64-apple-darwin20 (64-bit)
#> Running under: macOS Ventura 13.0
#>
#> Matrix products: default
#> BLAS: /Library/Frameworks/R.framework/Versions/4.2-arm64/Resources/lib/libRblas.0.dylib
#> LAPACK: /Library/Frameworks/R.framework/Versions/4.2-arm64/Resources/lib/libRlapack.dylib
#>
#> locale:
#> [1] C/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
#>
#> attached base packages:
#> [1] stats4 stats graphics grDevices utils datasets methods
#> [8] base
#>
#> other attached packages:
#> [1] SingleCellExperiment_1.20.0 MultiAssayExperiment_1.24.0
#> [3] SummarizedExperiment_1.28.0 Biobase_2.58.0
#> [5] GenomicRanges_1.50.2 GenomeInfoDb_1.34.9
#> [7] IRanges_2.32.0 S4Vectors_0.36.1
#> [9] BiocGenerics_0.44.0 MatrixGenerics_1.10.0
#> [11] matrixStats_0.63.0 FLAMES_1.4.3
#> [13] BiocStyle_2.26.0
#>
#> loaded via a namespace (and not attached):
#> [1] utf8_1.2.2 reticulate_1.27
#> [3] R.utils_2.12.2 tidyselect_1.2.0
#> [5] RSQLite_2.2.20 AnnotationDbi_1.60.0
#> [7] htmlwidgets_1.6.1 grid_4.2.2
#> [9] BiocParallel_1.32.5 DropletUtils_1.18.1
#> [11] ScaledMatrix_1.6.0 munsell_0.5.0
#> [13] codetools_0.2-18 statmod_1.5.0
#> [15] scran_1.26.2 interp_1.1-3
#> [17] xgboost_1.7.3.1 withr_2.5.0
#> [19] colorspace_2.0-3 filelock_1.0.2
#> [21] OrganismDbi_1.40.0 highr_0.10
#> [23] knitr_1.41 rstudioapi_0.14
#> [25] labeling_0.4.2 GenomeInfoDbData_1.2.9
#> [27] farver_2.1.1 bit64_4.0.5
#> [29] rhdf5_2.42.0 basilisk_1.10.2
#> [31] vctrs_0.5.1 generics_0.1.3
#> [33] xfun_0.36 biovizBase_1.46.0
#> [35] BiocFileCache_2.6.0 R6_2.5.1
#> [37] doParallel_1.0.17 ggbeeswarm_0.7.1
#> [39] clue_0.3-63 rsvd_1.0.5
#> [41] locfit_1.5-9.7 AnnotationFilter_1.22.0
#> [43] bitops_1.0-7 rhdf5filters_1.10.0
#> [45] cachem_1.0.6 reshape_0.8.9
#> [47] DelayedArray_0.24.0 assertthat_0.2.1
#> [49] BiocIO_1.8.0 scales_1.2.1
#> [51] nnet_7.3-18 beeswarm_0.4.0
#> [53] gtable_0.3.1 beachmat_2.14.0
#> [55] ggbio_1.46.0 ensembldb_2.22.0
#> [57] rlang_1.0.6 GlobalOptions_0.1.2
#> [59] splines_4.2.2 rtracklayer_1.58.0
#> [61] lazyeval_0.2.2 GEOquery_2.66.0
#> [63] dichromat_2.0-0.1 checkmate_2.1.0
#> [65] BiocManager_1.30.19 yaml_2.3.6
#> [67] reshape2_1.4.4 GenomicFeatures_1.50.4
#> [69] backports_1.4.1 Hmisc_4.7-2
#> [71] RBGL_1.74.0 tools_4.2.2
#> [73] bookdown_0.32 ggplot2_3.4.0
#> [75] ellipsis_0.3.2 jquerylib_0.1.4
#> [77] RColorBrewer_1.1-3 Rcpp_1.0.9
#> [79] plyr_1.8.8 base64enc_0.1-3
#> [81] sparseMatrixStats_1.10.0 progress_1.2.2
#> [83] zlibbioc_1.44.0 purrr_1.0.1
#> [85] RCurl_1.98-1.9 basilisk.utils_1.10.0
#> [87] prettyunits_1.1.1 rpart_4.1.19
#> [89] deldir_1.0-6 viridis_0.6.2
#> [91] GetoptLong_1.0.5 cowplot_1.1.1
#> [93] ggrepel_0.9.2 cluster_2.1.4
#> [95] magrittr_2.0.3 magick_2.7.3
#> [97] data.table_1.14.6 circlize_0.4.15
#> [99] ProtGenerics_1.30.0 hms_1.1.2
#> [101] evaluate_0.20 XML_3.99-0.13
#> [103] jpeg_0.1-10 gridExtra_2.3
#> [105] shape_1.4.6 scater_1.26.1
#> [107] compiler_4.2.2 biomaRt_2.54.0
#> [109] tibble_3.1.8 bambu_3.0.8
#> [111] crayon_1.5.2 R.oo_1.25.0
#> [113] htmltools_0.5.4 tzdb_0.3.0
#> [115] Formula_1.2-4 tidyr_1.2.1
#> [117] DBI_1.1.3 dbplyr_2.3.0
#> [119] ComplexHeatmap_2.14.0 rappdirs_0.3.3
#> [121] readr_2.1.3 Matrix_1.5-3
#> [123] cli_3.6.0 R.methodsS3_1.8.2
#> [125] metapod_1.6.0 parallel_4.2.2
#> [127] igraph_1.3.5 pkgconfig_2.0.3
#> [129] GenomicAlignments_1.34.0 dir.expiry_1.6.0
#> [131] foreign_0.8-84 scuttle_1.8.4
#> [133] xml2_1.3.3 foreach_1.5.2
#> [135] vipor_0.4.5 bslib_0.4.2
#> [137] dqrng_0.3.0 XVector_0.38.0
#> [139] stringr_1.5.0 VariantAnnotation_1.44.1
#> [141] digest_0.6.31 graph_1.76.0
#> [143] Biostrings_2.66.0 rmarkdown_2.20
#> [145] htmlTable_2.4.1 uwot_0.1.14
#> [147] edgeR_3.40.2 DelayedMatrixStats_1.20.0
#> [149] restfulr_0.0.15 curl_5.0.0
#> [151] Rsamtools_2.14.0 rjson_0.2.21
#> [153] lifecycle_1.0.3 jsonlite_1.8.4
#> [155] Rhdf5lib_1.20.0 BiocNeighbors_1.16.0
#> [157] viridisLite_0.4.1 limma_3.54.1
#> [159] BSgenome_1.66.2 fansi_1.0.3
#> [161] pillar_1.8.1 lattice_0.20-45
#> [163] GGally_2.1.2 KEGGREST_1.38.0
#> [165] fastmap_1.1.0 httr_1.4.4
#> [167] survival_3.5-0 glue_1.6.2
#> [169] FNN_1.1.3.1 png_0.1-8
#> [171] iterators_1.0.14 bluster_1.8.0
#> [173] bit_4.0.5 BiocBaseUtils_1.0.0
#> [175] stringi_1.7.12 sass_0.4.4
#> [177] HDF5Array_1.26.0 blob_1.2.3
#> [179] BiocSingular_1.14.0 latticeExtra_0.6-30
#> [181] memoise_2.0.1 dplyr_1.0.10
#> [183] irlba_2.3.5.1