## See system.file("LICENSE", package="MotifDb") for use restrictions.
R version: R version 4.2.2 (2022-10-31)
Bioconductor version: 3.16
Package version: 1.22.0
Eukaryotic gene regulation can be very complex. Transcription factor binding to promoter DNA sequences is a stochastic process, and imperfect matches can be sufficient for binding. Chromatin remodeling, methylation, histone modification, chromosome interaction, distal enhancers, and the cooperative binding of transcription co-factors all play an important role. We avoid most of this complexity in this demonstration workflow in order to examine transcription factor binding sites in a small set of seven broadly co-expressed Saccharomyces cerevisiae genes of related function. These genes exhibit highly correlated mRNA expression across 200 experimental conditions, and are annotated to Nitrogen Catabolite Repression (NCR), the means by which yeast cells switch between using rich and poor nitrogen sources.
We will see, however, that even this small collection of co-regulated genes of similar function exhibits considerable regulatory complexity, with (among other things) activators and repressors competing to bind to the same DNA promoter sequence. Our case study sheds some light on this complexity, and demonstrates how several new Bioconductor packages and methods allow us to
[ Back to top ]
To install the necessary packages and all of their dependencies, evaluate the commands
## try http:// if https:// URLs are not supported
library(BiocManager)
BiocManager::install(c("MotifDb", "GenomicFeatures",
"TxDb.Scerevisiae.UCSC.sacCer3.sgdGene",
"org.Sc.sgd.db", "BSgenome.Scerevisiae.UCSC.sacCer3",
"motifStack", "seqLogo"))
Package installation is required only once per R installation. When working with an organism other than S.cerevisiae, substitute the three species-specific packages as needed.
To use these packages in an R session, evaluate these commands:
library(MotifDb)
library(S4Vectors)
library(seqLogo)
library(motifStack)
library(Biostrings)
library(GenomicFeatures)
library(org.Sc.sgd.db)
library(BSgenome.Scerevisiae.UCSC.sacCer3)
library(TxDb.Scerevisiae.UCSC.sacCer3.sgdGene)
These instructions are required once in each R session.
[ Back to top ]
The x-y plot below displays expression levels of seven genes across 200 conditions, from a compendium of yeast expression data which accompanies Allocco et al, 2004, “Quantifying the relationship between co-expression, co-regulation and gene function”:
Allocco et al establish that
In S. cerevisiae, two genes have a 50% chance of having a common transcription factor binder if the correlation between their expression profiles is equal to 0.84.
These seven highly-correlated (> 0.85) NCR genes form a connected subnetwork within the complete co-expresson network derived from the compendium data (work not shown). Network edges indicate correlated expression of the two connected genes across all 200 conditions. The edges are colored as a function of that correlation: red for perfect correlation, white indicating correlation of 0.85, and intermediate colors for intermediate values. DAL80 is rendered as an octagon to indicate its special status as a transcription factor. We presume, following Allocco, that such correlation among genes, including one transcription factor, is a plausible place to look for shared transcription factor binding sites.
Some insight into the co-regulation of these seven genes is obtained from Georis et al, 2009, “The Yeast GATA Factor Gat1 Occupies a Central Position in Nitrogen Catabolite Repression-Sensitive Gene Activation”:
Saccharomyces cerevisiae cells are able to adapt their metabolism according to the quality of the nitrogen sources available in the environment. Nitrogen catabolite repression (NCR) restrains the yeast’s capacity to use poor nitrogen sources when rich ones are available. NCR-sensitive expression is modulated by the synchronized action of four DNA-binding GATA factors. Although the first identified GATA factor, Gln3, was considered the major activator of NCR-sensitive gene expression, our work positions Gat1 as a key factor for the integrated control of NCR in yeast for the following reasons: (i) Gat1 appeared to be the limiting factor for NCR gene expression, (ii) GAT1 expression was regulated by the four GATA factors in response to nitrogen availability, (iii) the two negative GATA factors Dal80 and Gzf3 interfered with Gat1 binding to DNA, and (iv) Gln3 binding to some NCR promoters required Gat1. Our study also provides mechanistic insights into the mode of action of the two negative GATA factors. Gzf3 interfered with Gat1 by nuclear sequestration and by competition at its own promoter. Dal80-dependent repression of NCR-sensitive gene expression occurred at three possible levels: Dal80 represses GAT1 expression, it competes with Gat1 for binding, and it directly represses NCR gene transcription. (emphasis added)
Thus DAL80 is but one of four interacting transcription factors which all bind the GATA motif. We will see below that DAL80 lacks the GATA sequence in its own promoter, but that the motif is well-represented in the promoters of the other six.
In order to demonstrate Bioconductor capabilities for finding binding sites for known transcription factors via sequence matching, we will use the shared DNA-binding GATA sequence as retrieved from one of those factors from MotifDb, DAL80.
[ Back to top ]
Sequence-based transcription factor binding site search methods answer two questions:
A gene’s promoter region is traditionally (if loosely) defined with respect to its transcription start site (TSS): 1000-3000 base pairs upstream, and 100-300 basepairs downstream. For the purposes of this workflow, we will focus only on these cis-regulatory regions, ignoring enhancer regions, which are also protein/DNA binding sites, but typically at a much greater distance from the TSS. An alternative and more inclusive “proximal regulatory region” may be appropriate for metazoans: 5000 base pairs up- and down stream of the TSS.
Promoter length statistics for yeast are available from Kristiansson et al, 2009: “Evolutionary Forces Act on Promoter Length: Identification of Enriched Cis-Regulatory Elements”
Histogram of the 5,735 Saccharomyces cerevisiae promoters used in this study. The median promoter length is 455 bp and the distribution is asymmetric with a right tail. Roughly, 5% of the promoters are longer than 2,000 bp and thus not shown in this figure.
The “normal” location of a promoter is strictly and simply upstream of a gene transcript’s TSS.
Other regulatory structures are not uncommon, so a comprehensive search for TFBSs, especially in mammalian genomes, should include downstream sequence as well.
For simplicity’s sake we will use a uniform upstream distance of 1000 bp, and 0 bp downstream in the analyses below.
[ Back to top ]
Only eight lines of code (excluding library
statements) are required to find two matches to the JASPAR DAL80 motif in the promoter of DAL1.
library(MotifDb)
library(seqLogo)
library(motifStack)
library(Biostrings)
library(GenomicFeatures)
library(org.Sc.sgd.db)
library(BSgenome.Scerevisiae.UCSC.sacCer3)
library(TxDb.Scerevisiae.UCSC.sacCer3.sgdGene)
query(MotifDb, "DAL80")
## MotifDb object of length 6
## | Created from downloaded public sources, last update: 2022-Mar-04
## | 6 position frequency matrices from 6 sources:
## | JASPAR_2014: 1
## | JASPAR_CORE: 1
## | ScerTF: 1
## | jaspar2016: 1
## | jaspar2018: 1
## | jaspar2022: 1
## | 1 organism/s
## | Scerevisiae: 6
## Scerevisiae-ScerTF-DAL80-harbison
## Scerevisiae-JASPAR_CORE-DAL80-MA0289.1
## Scerevisiae-JASPAR_2014-DAL80-MA0289.1
## Scerevisiae-jaspar2016-DAL80-MA0289.1
## Scerevisiae-jaspar2018-DAL80-MA0289.1
## Scerevisiae-jaspar2022-DAL80-MA0289.1
pfm.dal80.jaspar <- query(MotifDb,"DAL80")[[1]]
seqLogo(pfm.dal80.jaspar)
dal1 <- "YIR027C"
chromosomal.loc <-
transcriptsBy(TxDb.Scerevisiae.UCSC.sacCer3.sgdGene, by="gene") [dal1]
promoter.dal1 <-
getPromoterSeq(chromosomal.loc, Scerevisiae, upstream=1000, downstream=0)
pcm.dal80.jaspar <- round(100 * pfm.dal80.jaspar)
matchPWM(pcm.dal80.jaspar, unlist(promoter.dal1)[[1]], "90%")
## Views on a 1000-letter DNAString subject
## subject: TTGAGGAGTTGTCCACATACACATTAGTGTTGAT...GCAAAAAAAAAGTGAAATACTGCGAAGAACAAAG
## views:
## start end width
## [1] 621 625 5 [GATAA]
## [2] 638 642 5 [GATAA]
[ Back to top ]
We begin by visualizing DAL80’s TF binding motif using either of two Bioconductor packages: seqLogo, and motifStack. First, query MotifDb for the PFM (position frequency matrix):
query(MotifDb,"DAL80")
## MotifDb object of length 6
## | Created from downloaded public sources, last update: 2022-Mar-04
## | 6 position frequency matrices from 6 sources:
## | JASPAR_2014: 1
## | JASPAR_CORE: 1
## | ScerTF: 1
## | jaspar2016: 1
## | jaspar2018: 1
## | jaspar2022: 1
## | 1 organism/s
## | Scerevisiae: 6
## Scerevisiae-ScerTF-DAL80-harbison
## Scerevisiae-JASPAR_CORE-DAL80-MA0289.1
## Scerevisiae-JASPAR_2014-DAL80-MA0289.1
## Scerevisiae-jaspar2016-DAL80-MA0289.1
## Scerevisiae-jaspar2018-DAL80-MA0289.1
## Scerevisiae-jaspar2022-DAL80-MA0289.1
There are two motifs. How do they compare? The seqlogo package has been the standard tool for viewing sequence logos, but can only portray one logo at a time.
dal80.jaspar <- query(MotifDb,"DAL80")[[1]]
dal80.scertf <-query(MotifDb,"DAL80")[[2]]
seqLogo(dal80.jaspar)
seqLogo(dal80.scertf)
With a little preparation, the new (October 2012) package motifStack can
plot both motifs together. First, create instances of the pfm
class:
pfm.dal80.jaspar <- new("pfm", mat=query(MotifDb, "dal80")[[1]],
name="DAL80-JASPAR")
pfm.dal80.scertf <- new("pfm", mat=query(MotifDb, "dal80")[[2]],
name="DAL80-ScerTF")
plotMotifLogoStack(DNAmotifAlignment(c(pfm.dal80.scertf, pfm.dal80.jaspar)))
Of these two, the JASPAR motif has more detail, but the ScerTF motif is more recently published. ScerTF has a reputation for careful yeast-specific curation. We will use the ScerTF version.
Georis et al mention that DAL80 “competes with Gat1 for binding” – suggesting that they would have highly similar motifs. MotifDb has 3 entries for GAT1:
query(MotifDb, "gat1")
## MotifDb object of length 7
## | Created from downloaded public sources, last update: 2022-Mar-04
## | 7 position frequency matrices from 7 sources:
## | JASPAR_2014: 1
## | JASPAR_CORE: 1
## | ScerTF: 1
## | UniPROBE: 1
## | jaspar2016: 1
## | jaspar2018: 1
## | jaspar2022: 1
## | 1 organism/s
## | Scerevisiae: 7
## Scerevisiae-ScerTF-GAT1-zhu
## Scerevisiae-JASPAR_CORE-GAT1-MA0300.1
## Scerevisiae-JASPAR_2014-GAT1-MA0300.1
## Scerevisiae-jaspar2016-GAT1-MA0300.1
## Scerevisiae-jaspar2018-GAT1-MA0300.1
## Scerevisiae-jaspar2022-GAT1-MA0300.1
## Scerevisiae-UniPROBE-Gat1.UP00287
Plot the three together:
pfm.gat1.jaspar = new("pfm", mat=query(MotifDb, "gat1")[[1]],
name="GAT1-JASPAR")
pfm.gat1.scertf = new("pfm", mat=query(MotifDb, "gat1")[[2]],
name="GAT1-ScerTF")
pfm.gat1.uniprobe = new("pfm", mat=query(MotifDb, "gat1")[[3]],
name="GAT1-UniPROBE")
plotMotifLogoStack(c(pfm.gat1.uniprobe, pfm.gat1.scertf, pfm.gat1.jaspar))
The GAT1-JASPAR motif is very similar to DAL80’s GATAA motif, and thus consistent with the Georis claim that GAT1 and DAL80 compete for binding. The GAT1-ScerTF and GAT1-UniPROBE motifs are similar, but differ in length. They are reverse complements of the canonical GATAA motif.
To match motifs in a promoter, these steps are required:
The three search motifs, one for DAL80, and two for GAT1, must be transformed before then can be matched to DNA sequence. MotifDb returns a position frequency matrix (a PFM) with all columns summing to 1.0, but the Biostrings matchPWM method expects a position count matrix (a PCM) with integer values. Transform the frequency matrix into a count matrix using the somewhat arbitrary but functionally reliable scaling factor of 100:
pfm.dal80.scertf <- query(MotifDb, "dal80")[[2]]
pcm.dal80.scertf <- round(100 * pfm.dal80.scertf)
pfm.gat1.jaspar <- query(MotifDb, "gat1")[[1]]
pcm.gat1.jaspar <- round(100 * pfm.gat1.jaspar)
pfm.gat1.scertf <- query(MotifDb, "gat1")[[2]]
pcm.gat1.scertf <- round(100 * pfm.gat1.scertf)
Create a list of the seven genes from the DAL80 co-regulated subnetwork (displayed above). Lookup their systematic names, which will be needed immediately below.
genes <- c("DAL1", "DAL2", "DAL4", "DAL5", "DAL7", "DAL80", "GAP1")
orfs <- as.character(mget(genes, org.Sc.sgdCOMMON2ORF))
Obtain the coordinates of the transcripts for the orfs.
grl <- transcriptsBy(TxDb.Scerevisiae.UCSC.sacCer3.sgdGene, by="gene") [orfs]
These coordinates, returned in a GRangesList object, specify the start location (chromosome and base pair) of every known transcript for each gene. With this information, GenomicFeatures::getPromoterSeq calculates and returns the DNA sequence of the promoter:
promoter.seqs <- getPromoterSeq(grl, Scerevisiae, upstream=1000,
downstream=0)
We will next search for a match of the motif to the first of these sequences, the promoter for DAL1. Note that here, and below, we use a 90% “min.score” when we call matchPWM. This high minimum match score seems reasonable given the relative absence of variability in DAL80’s PFM:
pfm.dal80.scertf
## 1 2 3 4 5 6 7
## A 0.10891089 0 1 0 1 0.90909091 0.03
## C 0.66336634 0 0 0 0 0.01010101 0.19
## G 0.05940594 1 0 0 0 0.01010101 0.75
## T 0.16831683 0 0 1 0 0.07070707 0.03
The GATAA pattern is a very strong signal in this motif.
Note that some restructuring is needed for us to use the results of getPromoterSeqs as an argument to matchPWM. We call the getPromoterSeq method with a GRangesList, which contains a unique set of genomic ranges, representing transcript coordinates, for each of several genes. The corresponding result is a DNAStringSetList in which there is one DNAStringSet (essentially a list of DNAStrings) for each gene in the input list. Both of these variables are therefore lists of lists, in which the outer list is named with genes, and the inner lists are per-transcript coordinates or DNA strings.
Since we need DNA strings without that overarching by-gene-name structure, we call unlist to strip off that structure, leaving us with the desired DNAStringSet:
print (class(promoter.seqs))
## [1] "DNAStringSetList"
## attr(,"package")
## [1] "Biostrings"
promoter.seqs <- unlist(promoter.seqs)
print (class(promoter.seqs))
## [1] "DNAStringSet"
## attr(,"package")
## [1] "Biostrings"
matchPWM(pcm.dal80.scertf, promoter.seqs[[1]], "90%")
## Views on a 1000-letter DNAString subject
## subject: TTGAGGAGTTGTCCACATACACATTAGTGTTGAT...GCAAAAAAAAAGTGAAATACTGCGAAGAACAAAG
## views:
## start end width
## [1] 620 626 7 [TGATAAG]
## [2] 637 643 7 [CGATAAG]
The close proximity of these two GATAA hits suggests that dimeric DAL80, or some other GATAA-binding dimer, may bind DAL1.
All of the matches in the promoters of all seven genes to one binding motif may be found at once with this command:
pwm.hits <- sapply(promoter.seqs,
function(pseq)
matchPWM(pcm.dal80.scertf, pseq, min.score="90%"))
And we can summarize the motif hits for each of the three motifs (dal80.scertf, gat1.jaspar, gat1.scertf) by creating a data.frame of counts, by gene and motif. First, determine the hits:
dal80.scertf.hits <- sapply(promoter.seqs, function(pseq)
matchPWM(pcm.dal80.scertf, pseq, min.score="90%"))
gat1.scertf.hits <- sapply(promoter.seqs, function(pseq)
matchPWM(pcm.gat1.scertf, pseq, min.score="90%"))
gat1.jaspar.hits <- sapply(promoter.seqs, function(pseq)
matchPWM(pcm.gat1.jaspar, pseq, min.score="90%"))
Now count their lengths:
dal80.scertf <- sapply(dal80.scertf.hits, length)
gat1.jaspar <- sapply(gat1.jaspar.hits, length)
gat1.scertf <- sapply(gat1.scertf.hits, length)
Finally, create a data.frame from this information:
tbl.gata <- data.frame(gene=genes, dal80.scertf, gat1.jaspar, gat1.scertf)
The simple dal80.scertf 5-base motif has the most hits. The more complex 8-base gat1.jaspar mtoif has fewer hits: perhaps it is over-specified. The ‘other’(non-GATAA) motif of GAT1 obtained from ScerTF has fewer matches in the promoters of these genes than do the GATA motifs. The non-GATAA motif hits may in fact, be not much different from chance, as could be revealed by sampling the distribution of motif hits in the promoters of randomly selected genes. Such analyses will be left as an exercise for the reader.
[ Back to top ]
This dataset and our exploration has revealed a number of GATAA binding sites within these tighly co-regulated NCR genes, but leaves unanswered questions, some of which are:
GAT1 is reported to have two (or more) quite different binding motifs. Is this due to its having two or more distinct binding domains? Are they each functional, but only in different conditions?
The gene expression of the negative regulator DAL80 is highly correlated with the expression of genes it is known to repress. We would expect the opposite relationship between a negative regulator and its targets. Why doesn’t abundant DAL80 prevent the expression of the other six genes?
The DAL80/ScerTF motif and GAT1/JASPAR motif are very closely related. The match table, just above, shows quite different totals for the two motifs. Does the find structure of the motif explain the difference?
One speculative explanation for the counter-intuitive DAL80 expression is “nuclear sequestration”, a mechanism by which a gene is expressed but the mRNA is held in reserve for later use. See Lavut A, Raveh D 2012.
That GAT1 has multiple binding motifs (we show two, SGD four is yet another indication of the incompletely understood complexity of gene regulation.
The four GATAA-binding regulators, two positive and two negative, and their many downstream targets, some of whose binding sequences we have studied here, can thus be seen to be parts of complex regulatory circuits whose full elucidation has not yet been worked out. Judicious integration of many other kinds of data, careful laboratory work, and the right computational tools, will eventually clarify them.
[ Back to top ]
The packages used here have extensive help pages, and include vignettes highlighting common use cases. The help pages and vignettes are available from within an R session. After loading a package, type, for instance:
help(package="MotifDb")
?query
Though it is quite simple, with only a few methods, it will be worthwhile understand the MotifDb package in detail. To access the vignette:
browseVignettes(package="MotifDb")
Finally, you can open a web page containing comprehensive help resources for all installed packages:
help.start()
[ Back to top ]
sessionInfo()
## R version 4.2.2 (2022-10-31)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.5 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.16-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.16-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] grid stats4 stats graphics grDevices utils datasets
## [8] methods base
##
## other attached packages:
## [1] generegulation_1.22.0
## [2] seqLogo_1.64.0
## [3] org.Sc.sgd.db_3.16.0
## [4] motifStack_1.42.0
## [5] TxDb.Scerevisiae.UCSC.sacCer3.sgdGene_3.2.2
## [6] MotifDb_1.40.0
## [7] GenomicFeatures_1.50.4
## [8] AnnotationDbi_1.60.0
## [9] Biobase_2.58.0
## [10] BSgenome.Scerevisiae.UCSC.sacCer3_1.4.0
## [11] BSgenome_1.66.2
## [12] rtracklayer_1.58.0
## [13] Biostrings_2.66.0
## [14] XVector_0.38.0
## [15] GenomicRanges_1.50.2
## [16] GenomeInfoDb_1.34.8
## [17] IRanges_2.32.0
## [18] S4Vectors_0.36.1
## [19] BiocGenerics_0.44.0
## [20] BiocStyle_2.26.0
##
## loaded via a namespace (and not attached):
## [1] colorspace_2.1-0 grImport2_0.2-0
## [3] rjson_0.2.21 ellipsis_0.3.2
## [5] base64enc_0.1-3 bit64_4.0.5
## [7] fansi_1.0.4 xml2_1.3.3
## [9] R.methodsS3_1.8.2 codetools_0.2-18
## [11] cachem_1.0.6 knitr_1.42
## [13] ade4_1.7-20 jsonlite_1.8.4
## [15] splitstackshape_1.4.8 Rsamtools_2.14.0
## [17] annotate_1.76.0 GO.db_3.16.0
## [19] dbplyr_2.3.0 R.oo_1.25.0
## [21] png_0.1-8 BiocManager_1.30.19
## [23] readr_2.1.3 compiler_4.2.2
## [25] httr_1.4.4 assertthat_0.2.1
## [27] Matrix_1.5-3 fastmap_1.1.0
## [29] cli_3.6.0 htmltools_0.5.4
## [31] prettyunits_1.1.1 tools_4.2.2
## [33] gtable_0.3.1 glue_1.6.2
## [35] TFMPvalue_0.0.9 GenomeInfoDbData_1.2.9
## [37] reshape2_1.4.4 dplyr_1.1.0
## [39] rappdirs_0.3.3 Rcpp_1.0.10
## [41] jquerylib_0.1.4 vctrs_0.5.2
## [43] xfun_0.36 CNEr_1.34.0
## [45] stringr_1.5.0 lifecycle_1.0.3
## [47] restfulr_0.0.15 poweRlaw_0.70.6
## [49] gtools_3.9.4 XML_3.99-0.13
## [51] zlibbioc_1.44.0 MASS_7.3-58.2
## [53] scales_1.2.1 hms_1.1.2
## [55] MatrixGenerics_1.10.0 parallel_4.2.2
## [57] SummarizedExperiment_1.28.0 yaml_2.3.7
## [59] curl_5.0.0 memoise_2.0.1
## [61] ggplot2_3.4.0 sass_0.4.5
## [63] biomaRt_2.54.0 stringi_1.7.12
## [65] RSQLite_2.2.20 highr_0.10
## [67] BiocIO_1.8.0 caTools_1.18.2
## [69] filelock_1.0.2 BiocParallel_1.32.5
## [71] rlang_1.0.6 pkgconfig_2.0.3
## [73] matrixStats_0.63.0 bitops_1.0-7
## [75] pracma_2.4.2 evaluate_0.20
## [77] lattice_0.20-45 GenomicAlignments_1.34.0
## [79] htmlwidgets_1.6.1 bit_4.0.5
## [81] tidyselect_1.2.0 plyr_1.8.8
## [83] magrittr_2.0.3 bookdown_0.32
## [85] R6_2.5.1 magick_2.7.3
## [87] generics_0.1.3 DelayedArray_0.24.0
## [89] DBI_1.1.3 pillar_1.8.1
## [91] KEGGREST_1.38.0 RCurl_1.98-1.10
## [93] tibble_3.1.8 crayon_1.5.2
## [95] utf8_1.2.3 BiocFileCache_2.6.0
## [97] tzdb_0.3.0 rmarkdown_2.20
## [99] jpeg_0.1-10 progress_1.2.2
## [101] TFBSTools_1.36.0 data.table_1.14.6
## [103] blob_1.2.3 digest_0.6.31
## [105] xtable_1.8-4 R.utils_2.12.2
## [107] munsell_0.5.0 DirichletMultinomial_1.40.0
## [109] bslib_0.4.2
[ Back to top ]