Mapping protein features to splicing events
2022-04-26
Package
maser 1.14.0
1 Overview of protein annotation
In this vignette, we describe a maser workflow for annotation and visualization of protein features affected by splicing.
Integration of protein features to splicing events may reveal the impact of alternative splicing on protein function. We developed maser to enable systematic mapping of protein annotation from UniprotKB to splicing events.
Protein features can be annotated and visualized along with transcripts affected by the splice event. In this manner, maser can identify whether the splicing is affecting regions of interest containing known domains or motifs, mutations, post-translational modification and other described protein structural features.
2 Annotation of protein features
2.1 Creating the maser object
We illustrate the workflow using the hypoxia dataset from the previous vignette.
library(maser)
library(rtracklayer)
# Creating maser object using hypoxia dataset
path <- system.file("extdata", file.path("MATS_output"),
package = "maser")
hypoxia <- maser(path, c("Hypoxia 0h", "Hypoxia 24h"))
# Remove low coverage events
hypoxia_filt <- filterByCoverage(hypoxia, avg_reads = 5)2.2 Query available protein features at Uniprot
Available UniprotKB protein annotation can be queried using availableFeaturesUniprotKB(). Currently there are 30 distinct features grouped into broader categories, including Domain and Sites, PTM (Post-translational modifications), Molecule Processing, Topology, Mutagenesis and Structural Features.
| Name | Description | Category |
|---|---|---|
| Ca-binding | UniProtKB Calcium binding site sequence annotations | Domain_and_Sites |
| DNA-bind | UniProtKB DNA binding site sequence annotations | Domain_and_Sites |
| NP bind | UniProtKB Nucleotide Phosphate binding sequence annotations | Domain_and_Sites |
| Zn-fing | UniProtKB Zinc finger sequence annotations | Domain_and_Sites |
| act-site | UniProtKB active site sequence annotations | Domain_and_Sites |
| binding | UniProtKB binding site sequence annotations | Domain_and_Sites |
| coiled | UniProtKB coiled coil sequence annotations | Domain_and_Sites |
| domain | UniProtKB domain sequence annotations | Domain_and_Sites |
| metal | UniProtKB metal ion binding site sequence annotations | Domain_and_Sites |
| motif | UniProtKB motif of interest sequence annotations | Domain_and_Sites |
2.3 Steps for annotation
Protein feature annotation of splicing events is performed in two steps.
- Use
mapTranscriptsToEvents()to add both transcript and protein IDs to all events in the maser object. - Use
mapProteinFeaturesToEvents()for annotation specifying UniprotKB features or categories.
mapTranscriptsToEvents() identifies transcripts compatible with the splicing event by overlapping exons involved in splicing to the gene models provided in the Ensembl GTF. Each type of splice event applies a specific overlapping rule (described in the Introduction vignette). The function also maps transcripts to their corresponding protein identifiers in Uniprot when available.
mapTranscriptsToEvents() requires an Ensembl or Gencode GTF using the hg38 build of the human genome. Ensembl GTFs can be retrieved using AnnotationHub or imported using import.gff() from the rtracklayer package. Several GTF releases are available, and maser is compatible with any version using the hg38 build.
We are using reduced GTF extracted from Ensembl Release 85 for running examples.
## Ensembl GTF annotation
gtf_path <- system.file("extdata", file.path("GTF","Ensembl85_examples.gtf.gz"),
package = "maser")
ens_gtf <- rtracklayer::import.gff(gtf_path)In the second step, mapProteinFeaturesToEvents() retrieves data from UniprotKB and overlaps splicing events to genomic coordinates of protein features.
2.4 SRSF6 example
The splicing factor SRSF6 undergoes splicing during hypoxia by expressing an alternative exon. We will annotate the exon skipping event with domain, sites and topology information. The first step is to obtain a maser object containing SRSF6 splicing information, and then map transcripts to splicing events.
# Retrieve gene specific splicing events
srsf6_events <- geneEvents(hypoxia_filt, "SRSF6")
srsf6_events
#> A Maser object with 1 splicing events.
#>
#> Samples description:
#> Label=Hypoxia 0h n=3 replicates
#> Label=Hypoxia 24h n=3 replicates
#>
#> Splicing events:
#> A3SS.......... 0 events
#> A5SS.......... 0 events
#> SE.......... 1 events
#> RI.......... 0 events
#> MXE.......... 0 events# Map transcripts to splicing events
srsf6_mapped <- mapTranscriptsToEvents(srsf6_events, ens_gtf)If transcript mapping worked correctly, Ensembl and Uniprot identifiers will be added to splicing events. Possible NA values indicates non-protein coding transcripts. In this case, the splicing involves two Ensembl transcripts coding for the Q13247 isoform of SRSF6.
head(annotation(srsf6_mapped, "SE"))| ID | GeneID | geneSymbol | txn_3exons | txn_2exons | list_ptn_a | list_ptn_b |
|---|---|---|---|---|---|---|
| 33209 | ENSG00000124193.14 | SRSF6 | ENST00000483871 | ENST00000244020 | Q13247 | Q13247 |
Now we are ready to call mapProteinFeaturesToEvents() for annotation. Feature annotation can be interactively displayed in a web browser using display() or retrieved as a data.frame using annotation().
mapProteinFeaturesToEvents() will add extra columns describing the feature name, feature description and protein identifiers for which the annotation has been assigned. Possible NA values indicate the particular feature is not annotated for the splice event.
# Annotate splicing events with protein features
srsf6_annot <- mapProteinFeaturesToEvents(srsf6_mapped, c("Domain_and_Sites", "Topology"), by="category")head(annotation(srsf6_annot, "SE"))| ID | GeneID | geneSymbol | txn_3exons | txn_2exons | list_ptn_a | list_ptn_b | Ca-binding | DNA-bind | NP bind | Zn-fing | act-site | binding | coiled | domain | metal | motif | region | repeat | site | intramem | topo-dom | transmem |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 33209 | ENSG00000124193.14 | SRSF6 | ENST00000483871 | ENST00000244020 | Q13247 | Q13247 | NA | NA | NA | NA | NA | NA | NA | Q13247:M1-G72;RRM1,A0A590UJK4:P2-G72;RRM,A0A590UJP7:P2-G72;RRM,A0A590UK01:P2-G72;RRM,A0A590UK80:X1-G66;RRM,A0A590UJK4:Y110-P183;RRM,A0A590UJP7:Y110-P183;RRM,A0A590UK01:Y110-P183;RRM,Q13247:Y110-P183;RRM2,A0A590UK80:Y104-P177;RRM | NA | NA | A0A590UJK4:R75-G103;Disordered,A0A590UJP7:R75-G103;Disordered,A0A590UK01:R75-G103;Disordered,Q13247:R75-G103;Disordered,A0A590UK80:R69-G97;Disordered | NA | NA | NA | NA | NA |
By inspecting the results, we see that the SRSF6 exon skipping event is annotated with the Uniprot features domain, chain and mod-res (modidifed residue). Visualization of the splice event, transcripts and protein features is performed with plotUniprotKBFeatures(). In this example, exons in the splice event overlap the Serine/arginine-rich splicing factor 6 region of the protein, while the upstream exon and downstream exons are overlapping the RRM1 and RRM2 domains of SRSF6, respectively.
# Plot splice event, transcripts and protein features
plotUniprotKBFeatures(srsf6_mapped, "SE", event_id = 33209, gtf = ens_gtf,
features = c("domain", "chain"), show_transcripts = TRUE)
2.5 RIPK2 example
RIPK2 has an exon skipping event in the hypoxia dataset. Following the example above, we map transcripts to splicing events and annotate protein features overlapping the splice event. We find out that the alternative exon overlaps the kinase domain of the protein, thus possibly changing the configuration of this domain during hypoxia. The ATP and proton acceptor binding sites are overlapping exons flanking the alternative exon.
ripk2_events <- geneEvents(hypoxia_filt, "RIPK2")
ripk2_mapped <- mapTranscriptsToEvents(ripk2_events, ens_gtf)
ripk2_annot <- mapProteinFeaturesToEvents(ripk2_mapped,
tracks = c("Domain_and_Sites"),
by = "category")plotUniprotKBFeatures(ripk2_annot, type = "SE", event_id = 14319,
features = c("domain", "binding", "act-site"), gtf = ens_gtf,
zoom = FALSE, show_transcripts = TRUE)
3 Session info
Here is the output of sessionInfo() on the system on which this document was
compiled:
#> R version 4.2.0 RC (2022-04-19 r82224)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 20.04.4 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.15-bioc/R/lib/libRblas.so
#> LAPACK: /home/biocbuild/bbs-3.15-bioc/R/lib/libRlapack.so
#>
#> locale:
#> [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
#> [3] LC_TIME=en_GB LC_COLLATE=C
#> [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
#> [7] LC_PAPER=en_US.UTF-8 LC_NAME=C
#> [9] LC_ADDRESS=C LC_TELEPHONE=C
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
#>
#> attached base packages:
#> [1] stats4 stats graphics grDevices utils datasets methods
#> [8] base
#>
#> other attached packages:
#> [1] rtracklayer_1.56.0 maser_1.14.0 GenomicRanges_1.48.0
#> [4] GenomeInfoDb_1.32.0 IRanges_2.30.0 S4Vectors_0.34.0
#> [7] BiocGenerics_0.42.0 ggplot2_3.3.5 BiocStyle_2.24.0
#>
#> loaded via a namespace (and not attached):
#> [1] colorspace_2.0-3 rjson_0.2.21
#> [3] ellipsis_0.3.2 biovizBase_1.44.0
#> [5] htmlTable_2.4.0 XVector_0.36.0
#> [7] base64enc_0.1-3 dichromat_2.0-0
#> [9] rstudioapi_0.13 farver_2.1.0
#> [11] DT_0.22 bit64_4.0.5
#> [13] AnnotationDbi_1.58.0 fansi_1.0.3
#> [15] xml2_1.3.3 splines_4.2.0
#> [17] cachem_1.0.6 knitr_1.38
#> [19] Formula_1.2-4 jsonlite_1.8.0
#> [21] Rsamtools_2.12.0 cluster_2.1.3
#> [23] dbplyr_2.1.1 png_0.1-7
#> [25] BiocManager_1.30.17 compiler_4.2.0
#> [27] httr_1.4.2 backports_1.4.1
#> [29] lazyeval_0.2.2 assertthat_0.2.1
#> [31] Matrix_1.4-1 fastmap_1.1.0
#> [33] cli_3.3.0 htmltools_0.5.2
#> [35] prettyunits_1.1.1 tools_4.2.0
#> [37] gtable_0.3.0 glue_1.6.2
#> [39] GenomeInfoDbData_1.2.8 reshape2_1.4.4
#> [41] dplyr_1.0.8 rappdirs_0.3.3
#> [43] Rcpp_1.0.8.3 Biobase_2.56.0
#> [45] jquerylib_0.1.4 vctrs_0.4.1
#> [47] Biostrings_2.64.0 crosstalk_1.2.0
#> [49] xfun_0.30 stringr_1.4.0
#> [51] lifecycle_1.0.1 ensembldb_2.20.0
#> [53] restfulr_0.0.13 XML_3.99-0.9
#> [55] zlibbioc_1.42.0 scales_1.2.0
#> [57] BSgenome_1.64.0 VariantAnnotation_1.42.0
#> [59] ProtGenerics_1.28.0 hms_1.1.1
#> [61] MatrixGenerics_1.8.0 parallel_4.2.0
#> [63] SummarizedExperiment_1.26.0 AnnotationFilter_1.20.0
#> [65] RColorBrewer_1.1-3 yaml_2.3.5
#> [67] curl_4.3.2 memoise_2.0.1
#> [69] gridExtra_2.3 sass_0.4.1
#> [71] biomaRt_2.52.0 rpart_4.1.16
#> [73] latticeExtra_0.6-29 stringi_1.7.6
#> [75] RSQLite_2.2.12 highr_0.9
#> [77] BiocIO_1.6.0 checkmate_2.1.0
#> [79] GenomicFeatures_1.48.0 filelock_1.0.2
#> [81] BiocParallel_1.30.0 rlang_1.0.2
#> [83] pkgconfig_2.0.3 matrixStats_0.62.0
#> [85] bitops_1.0-7 evaluate_0.15
#> [87] lattice_0.20-45 purrr_0.3.4
#> [89] labeling_0.4.2 GenomicAlignments_1.32.0
#> [91] htmlwidgets_1.5.4 bit_4.0.4
#> [93] tidyselect_1.1.2 plyr_1.8.7
#> [95] magrittr_2.0.3 bookdown_0.26
#> [97] R6_2.5.1 magick_2.7.3
#> [99] generics_0.1.2 Hmisc_4.7-0
#> [101] DelayedArray_0.22.0 DBI_1.1.2
#> [103] pillar_1.7.0 foreign_0.8-82
#> [105] withr_2.5.0 survival_3.3-1
#> [107] KEGGREST_1.36.0 RCurl_1.98-1.6
#> [109] nnet_7.3-17 tibble_3.1.6
#> [111] crayon_1.5.1 utf8_1.2.2
#> [113] BiocFileCache_2.4.0 rmarkdown_2.14
#> [115] jpeg_0.1-9 progress_1.2.2
#> [117] grid_4.2.0 data.table_1.14.2
#> [119] blob_1.2.3 digest_0.6.29
#> [121] munsell_0.5.0 Gviz_1.40.0
#> [123] bslib_0.3.1