3. Creating a Circos Plot with VCF Data
This tutorial walks through the process of creating a Circos plot using VCF (Variant Call Format) data, with a focus on utilizing the shiny.gosling package to achieve interactive visualizations within a Shiny app.
Libraries and Initialization
First, we load the necessary libraries for our analysis, including StructuralVariantAnnotation, ggbio, shiny, and shiny.gosling. We also initialize the shiny.gosling package using the use_gosling() function.
Loading VCF Data
We start by loading the VCF data using the readVcf function from the VariantAnnotation package. This data represents structural variant information. The loaded data is then converted into breakpoint GRanges notation using the breakpointRanges function.
StructuralVariantAnnotation is built on top of the Bioconductor package VariantAnnotation. VCF files are loaded using VariantAnnotation::readVcf, and converted to breakpoint GRanges notation using breakpointRanges Any non-structural variants such as single nucleotide variants in a VCF will be silently ignored by StructuralVariantAnnotation. More information about VCF objects can be found by consulting the vignettes in the VariantAnnotation package with browseVignettes(“VariantAnnotation”).
Colo829, is a human cell line primarily derived from skin tissue affected by melanoma, a type of malignant skin cancer. The cell line is maintained and distributed by the American Type Culture Collection (ATCC) under the product name “COLO 829.” Its unique identifier is Catalog Number CRL-1974.
The Colo829 cell line was established from a 45-year-old male patient with melanoma, making it an important resource for research and study of this particular disease. The cells are preserved in a frozen state, allowing for long-term storage and viability.
These cells are classified as fibroblast-like, which indicates their morphological and functional characteristics are similar to fibroblasts, a type of connective tissue cell involved in wound healing and extracellular matrix production.
With a Biosafety Level of 1, Colo829 is considered safe to handle and work with under standard laboratory conditions. This makes it accessible to a wider range of researchers and laboratories.
The primary application of Colo829 is in 3D cell culture experiments, where it can be used to model melanoma or study interactions between cancer cells and their surrounding environment in a more physiologically relevant setting.
Being a human cell line of Homo sapiens origin, Colo829 is a valuable tool for studying human-specific processes and responses. Its tissue origin from the skin makes it particularly relevant for melanoma research, as the disease primarily affects skin cells.
Overall, Colo829 is a well-characterized cell line that holds significance in the field of melanoma research and offers a versatile platform for investigating various aspects of cancer biology and therapeutic development.
See more info about this cell line at https://www.cellosaurus.org/CVCL_1137
Visualizing breakpoint pairs via circos plots
We can visualize breakpoints with a circos plot.
To plot structural variant breakpoints in a circos plot using shiny.gosling, we need to first prepare the breakpoint GRanges. The function requires a special column, indicating the end of the link using GRanges format.
This chunk of code is manipulating genomic ranges represented by the ‘granges’ object named ‘colo829_bpgr’ to create a circular visualization layout using the ‘biovizBase’ package. The goal is to subset the genomic ranges relevant to the human genome version ‘hg19sub’ and then convert these ranges into a circular layout.
# In this line, a subset of genomic ranges is extracted from the object
# colo829_bpgr. The subset is obtained by filtering based on the sequence
# names (seqnames) present in colo829_bpgr that are also found in the
# sequence levels (seqlevels) of the hg19sub reference genome from the
# biovizBase package. colo829_bpgr is assumed to be a GenomicRanges object
# containing genomic regions.
gr_circos <- colo829_bpgr[seqnames(colo829_bpgr) %in% seqlevels(biovizBase::hg19sub)]
# This line updates the sequence levels of the gr_circos object to match
# those of the hg19sub reference genome. It ensures that the genomic ranges
# in gr_circos align properly with the reference genome.
seqlevels(gr_circos) <- seqlevels(biovizBase::hg19sub)
# Here, the metadata columns (mcols) of the gr_circos object are updated
# with additional information. Specifically, a new column called "to.gr" is
# added, and its values are assigned using the granges function on the
# partner genomic ranges of gr_circos.
mcols(gr_circos)$to.gr <- granges(partner(gr_circos))Using the GRanges object for a circos plot using shiny.gosling
Setup Tracks
Track 1
We will have 3 tracks in this circos plot. The outermost layer displays the width of a sequence as a bar plot in maroon.
In the track below, we first give it an id. In the
following line, we assign a title to it. This title will be displayed at
the top of the rings. Next, we prepare and pass the data with
track_data_gr, which takes the GRanges object, the
chromosome field names and the genomic field names. We set the mark to
bar as we need a simple bar plot here. We define x and y
via visual_channel_x and visual_channel_y.
Finally, we set the color of the bar plot and the width &
height.
track1 <- add_single_track(
id = "track1",
title = "Quality",
data = track_data_gr(
gr_circos, chromosomeField = "seqnames",
genomicFields = c("start", "end")
),
mark = "bar",
x = visual_channel_x(field = "start", type = "genomic", axis = "bottom"),
y = visual_channel_y(field = "QUAL", type = "quantitative", axis = "right"),
color = visual_channel_color(
value = "#BB3114"
),
width = 700,
height = 100
)Track 2
The middle layer plots the start of the sequence to its end.
In this layer, we begin similarly by setting the id and the title of
the layer. Next we pass the same data object as our data will not
change. But other data can be used here. We just need to pass the
appropriate chromosomeField and genomicFields.
We set this as mark = "rect" as we want to fill the ring
with a color if data is a certain value. These are called ideograms. We
set the strokeWidth to 0.5. We set the stroke itself to
have different colors based on the value in the field
argument. Since “REF” is passed as field, and it has 4 values: A, C, G
and T, we set the domain and range accordingly. A corresponds to color
#73A97D and so on. Finally, we set the x and
xe. Since this is a rect ( rectangle ) plot,
it only has x and xe and no
y.
track2 <- add_single_track(
id = "track2",
title = "REF",
data = track_data_gr(
gr_circos, chromosomeField = "seqnames",
genomicFields = c("start", "end")
),
mark = "rect",
strokeWidth = visual_channel_stroke_width(
value = 0.5
),
stroke = visual_channel_stroke(
field = "REF",
type = "nominal",
domain = list("A", "C", "G", "T"),
range = list("#73A97D", "#C1BB78", "#1F5E89", "#CF784B")
),
x = visual_channel_x(field = "start", type = "genomic"),
xe = visual_channel_x(field = "end", type = "genomic"),
width = 700,
height = 100
)Track 3
Finally, the innermost layer shows the changes in sequences.
For the last layer, we start off again by setting the id and the
title. We set the data with track_data_gr but we now set
the chromosomeField and genomicFields to
to.gr columns. We also set longToWideId. This
will spread the data based on event column. So the new data
will have double the number of columns and will have a new column for
every existing column with the suffix _2. So
to.gr.start will have a corresponding column
to.gr.start_2 added to the DB. This is essentially widening
the dataset. We set alignment to overlay, as we want the tracks to be
plotted on top of each other. We then add 2 sub-tracks to this track.
The sub-tracks inherits all the data from the parent track. These tracks
are set with mark = "withinLink" so that the 2 tracks are
linked with each other. And we set x, xe,
x1 and x1e to refer to the correct columns in
the data. The first sub-track traces all variations that are not a part
of ch10 and the second sub-track traces the ones that are a
part of ch10. The first sub-track will trace on gray color
and the second sub-track will trace in various colors based on its
sequence name. In the end we also specify the width, height and the
stroke width.
track3 <- add_single_track(
id = "track3",
title = "Highlight similarities of Chr 10 with others",
data = track_data_gr(
gr_circos, chromosomeField = "to.gr.seqnames",
genomicFields = c("to.gr.start", "to.gr.end"),
longToWideId = "event"
),
alignment = "overlay",
opacity = visual_channel_opacity(
value = 0.4
),
tracks = add_multi_tracks(
add_single_track(
dataTransform = track_data_transform(
type = "filter", field = "to.gr.seqnames", oneOf = list("10"), not = TRUE
),
mark = "withinLink",
x = visual_channel_x(
field = "to.gr.start", type = "genomic"
),
xe = visual_channel_x(
field = "to.gr.start_2", type = "genomic"
),
x1 = visual_channel_x(
field = "to.gr.end", type = "genomic"
),
x1e = visual_channel_x(
field = "to.gr.end_2", type = "genomic"
),
stroke = visual_channel_stroke(
value = "lightgray"
),
strokeWidth = visual_channel_stroke_width(
value = 1
)
),
add_single_track(
dataTransform = track_data_transform(
type = "filter", field = "to.gr.seqnames", oneOf = list("10")
),
mark = "withinLink",
x = visual_channel_x(
field = "to.gr.start", type = "genomic"
),
xe = visual_channel_x(
field = "to.gr.start_2", type = "genomic"
),
x1 = visual_channel_x(
field = "to.gr.end", type = "genomic"
),
x1e = visual_channel_x(
field = "to.gr.end_2", type = "genomic"
),
stroke = visual_channel_stroke(
field = "to.gr.seqnames_2",
type = "nominal",
range = c(
"#E79F00", "#029F73", "#0072B2", "#CB7AA7", "#D45E00",
"#57B4E9", "#EFE441"
)
),
strokeWidth = visual_channel_stroke_width(
value = 1.5
)
)
),
width = 700,
height = 200
)Final View
Finally we put all the 3 main tracks together along with some parameters to control the layout style, the alignment and so on.
Run App
We put all of this in a shiny app.
ui <- fluidPage(
use_gosling(),
fluidRow(
column(6, goslingOutput("gosling_plot")),
column(
1, br(), actionButton(
"download_pdf",
"PDF",
icon = icon("cloud-arrow-down")
)
)
)
)
server <- function(input, output, session) {
output$gosling_plot <- renderGosling({
gosling(
component_id = "component_1",
single_composed_track
)
})
observeEvent(input$download_pdf, {
export_pdf(component_id = "component_1")
})
}
shinyApp(ui, server)
Session Info
sessionInfo()
#> R version 4.4.2 (2024-10-31)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 24.04.1 LTS
#>
#> Matrix products: default
#> BLAS: /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
#> LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.26.so; LAPACK version 3.12.0
#>
#> locale:
#> [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
#> [3] LC_TIME=en_US.UTF-8 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
#>
#> time zone: Etc/UTC
#> tzcode source: system (glibc)
#>
#> attached base packages:
#> [1] stats4 stats graphics grDevices utils datasets methods
#> [8] base
#>
#> other attached packages:
#> [1] ggbio_1.55.0 ggplot2_3.5.1
#> [3] StructuralVariantAnnotation_1.23.0 VariantAnnotation_1.53.0
#> [5] Rsamtools_2.23.0 Biostrings_2.75.1
#> [7] XVector_0.47.0 SummarizedExperiment_1.37.0
#> [9] Biobase_2.67.0 MatrixGenerics_1.19.0
#> [11] matrixStats_1.4.1 rtracklayer_1.67.0
#> [13] GenomicRanges_1.59.1 GenomeInfoDb_1.43.1
#> [15] IRanges_2.41.1 S4Vectors_0.45.2
#> [17] BiocGenerics_0.53.3 generics_0.1.3
#> [19] shiny_1.9.1 shiny.gosling_1.3.0
#> [21] rmarkdown_2.29
#>
#> loaded via a namespace (and not attached):
#> [1] RColorBrewer_1.1-3 sys_3.4.3 rstudioapi_0.17.1
#> [4] jsonlite_1.8.9 magrittr_2.0.3 GenomicFeatures_1.59.1
#> [7] fs_1.6.5 BiocIO_1.17.0 zlibbioc_1.52.0
#> [10] vctrs_0.6.5 memoise_2.0.1 RCurl_1.98-1.16
#> [13] base64enc_0.1-3 progress_1.2.3 htmltools_0.5.8.1
#> [16] S4Arrays_1.7.1 curl_6.0.1 SparseArray_1.7.2
#> [19] Formula_1.2-5 sass_0.4.9 bslib_0.8.0
#> [22] fontawesome_0.5.3 htmlwidgets_1.6.4 httr2_1.0.6
#> [25] plyr_1.8.9 cachem_1.1.0 buildtools_1.0.0
#> [28] GenomicAlignments_1.43.0 shiny.react_0.4.0 mime_0.12
#> [31] lifecycle_1.0.4 pkgconfig_2.0.3 Matrix_1.7-1
#> [34] R6_2.5.1 fastmap_1.2.0 GenomeInfoDbData_1.2.13
#> [37] digest_0.6.37 colorspace_2.1-1 GGally_2.2.1
#> [40] AnnotationDbi_1.69.0 OrganismDbi_1.49.0 Hmisc_5.2-0
#> [43] RSQLite_2.3.8 filelock_1.0.3 fansi_1.0.6
#> [46] httr_1.4.7 abind_1.4-8 compiler_4.4.2
#> [49] bit64_4.5.2 withr_3.0.2 htmlTable_2.4.3
#> [52] backports_1.5.0 BiocParallel_1.41.0 DBI_1.2.3
#> [55] ggstats_0.7.0 biomaRt_2.63.0 rappdirs_0.3.3
#> [58] DelayedArray_0.33.2 rjson_0.2.23 tools_4.4.2
#> [61] foreign_0.8-87 httpuv_1.6.15 nnet_7.3-19
#> [64] glue_1.8.0 restfulr_0.0.15 promises_1.3.0
#> [67] grid_4.4.2 checkmate_2.3.2 cluster_2.1.6
#> [70] reshape2_1.4.4 gtable_0.3.6 BSgenome_1.75.0
#> [73] tidyr_1.3.1 ensembldb_2.31.0 hms_1.1.3
#> [76] data.table_1.16.2 xml2_1.3.6 utf8_1.2.4
#> [79] pillar_1.9.0 stringr_1.5.1 later_1.3.2
#> [82] dplyr_1.1.4 BiocFileCache_2.15.0 lattice_0.22-6
#> [85] bit_4.5.0 biovizBase_1.55.0 RBGL_1.83.0
#> [88] tidyselect_1.2.1 maketools_1.3.1 knitr_1.49
#> [91] gridExtra_2.3 ProtGenerics_1.39.0 xfun_0.49
#> [94] stringi_1.8.4 UCSC.utils_1.3.0 lazyeval_0.2.2
#> [97] yaml_2.3.10 evaluate_1.0.1 codetools_0.2-20
#> [100] tibble_3.2.1 graph_1.85.0 BiocManager_1.30.25
#> [103] cli_3.6.3 rpart_4.1.23 xtable_1.8-4
#> [106] munsell_0.5.1 jquerylib_0.1.4 dichromat_2.0-0.1
#> [109] Rcpp_1.0.13-1 dbplyr_2.5.0 png_0.1-8
#> [112] XML_3.99-0.17 parallel_4.4.2 assertthat_0.2.1
#> [115] blob_1.2.4 prettyunits_1.2.0 AnnotationFilter_1.31.0
#> [118] bitops_1.0-9 txdbmaker_1.3.0 pwalign_1.3.0
#> [121] scales_1.3.0 purrr_1.0.2 crayon_1.5.3
#> [124] rlang_1.1.4 KEGGREST_1.47.0