My thoughts and ideas
My thoughts and ideas
Transitions and transversions describe the mutation of a nucleotide from one base to another. Specifically transitions describe the mutation of nucleotides between purines or between pyrimidines and transversions from purines to pyrimidines or pyrimidines to purines. Often such events can give clues as to the origin of mutations within a sample. For example transverions are associated with ionizing radiation.
Figure 1 of the manuscript “Recurrent somatic mutations affecting B-cell receptor signaling pathway genes in follicular lymphoma” plots the rate of each type of transition and transversion observed in a cohort of samples. In this section we will use the GenVisR function TvTi to create a version of this figure, shown below. The underlying data for this figure can be found in supplemental table S5 and is the same data used in the “Introduction to ggplot2” section. You can download the data here if you haven’t already.
The GenVisR function TvTi() will calculate the rate of individual transitions and transversions within a cohort and plot this information as a stacked barchart. As with the waterfall() function TvTi() can accept multiple file types as specified by the parameter
fileType. Here we will use the most flexible, an “MGI” file type which expects a data frame with column names “sample”, “reference”, and “variant”. Further we will re-assign the sample column to use the same sample names as in the manuscript figure. In order to match the manuscript figure we will also limit the data to just the discovery cohort and re-factor the data frame with the function factor() so samples without any data are not plotted.
# load the data into R mutationData <- read.delim("ggplot2ExampleData.tsv") # change the "Simple_name" column to "sample" colnames(mutationData)[colnames(mutationData) %in% "sample"] <- "sample_1" colnames(mutationData)[colnames(mutationData) %in% "Simple_name"] <- "sample" # subset the data to just the discovery cohort mutationData <- mutationData[mutationData$dataset == "discovery",] mutationData$sample <- factor(mutationData$sample, levels=unique(mutationData$sample)) # run TvTi TvTi(mutationData, fileType="MGI")
You might notice from the previous plot that two samples look a bit off. Specifically the samples “LYM002-Naive” and “LYM005-Naive” are missing transitions and transversions. By default TvTi() plots only the proportion of transitions and transversions which can be deceiving if the frequency of mutation events is not high enough to get an accurate calculation of the relative proportion. We can use the parameter
type which expects a string specifying either “proportion” or “frequency”, to instead plot the frequency of each mutation event. Let’s use this parameter two create two plots, one of frequency the other of proportion and combine them. To do this we will need to output our plots as grobs using
out="grob", and use the function arrangeGrob() from the gridExtra package to combine the two plots into one. Finally we will need to call grid.draw() on the grob to output it to the current graphical device. We can see from the resulting plot that quite a few samples have low mutation frequencies and we should interpret these samples with caution.
# install and load gridExtra install.packages("gridExtra") library(gridExtra) library(grid) # make a frequency and proportion plot tvtiFreqGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="frequency") tvtiPropGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="proportion") # combine the two plots finalGrob <- arrangeGrob(tvtiFreqGrob, tvtiPropGrob, ncol=1) # draw the plot grid.draw(finalGrob)
By default the order of the samples on the x-axis uses the levels of the sample column in the input data frame to determine an order, if that column is not of type factor it is coerced to one using the existing order of samples to define the levels within that factor. This behavior can be altered using parameter
sort which will take a character vector specifying either “sample” or “tvti”. Specifying “sample” will order the x-axis alpha-numerically based on the sample names, conversely “tvti” will attempt to order the x-axis samples by decreasing proportions of each transition/transversion type. In the manuscript figure we can see that a custom sort order is being used. Let’s take advantage of the default ordering behavior in TvTi() and change the levels of the sample column to match the order in the manuscript figure.
# determine the exisitng order of samples levels(mutationData$sample) # create a custom sample order to match the manuscript sampleOrder <- c("LYM145-Naive", "LYM023-Naive", "LYM045-Naive", "LYM238-Sorted", "LYM238-Naive", "LYM058-Naive", "LYM125-Naive", "LYM100-Naive", "LYM088-Naive", "LYM167-Naive", "LYM153-Naive", "LYM002-Naive", "LYM005-Naive", "LYM120-Naive", "LYM120-Treated", "LYM215-Sorted", "LYM215-Treated", "LYM139-Treated", "LYM177-Treated", "LYM202-Sorted", "LYM202-Treated", "LYM062-Treated", "LYM057-tNHL", "LYM001-tNHL", "LYM175-tNHL", "LYM193-tNHL", "LYM237-tNHL", "LYM013-tNHL") # make sure all samples have been specified all(mutationData$sample %in% sampleOrder) # alter the sample levels of the input data mutationData$sample <- factor(mutationData$sample, levels=sampleOrder) # recreate the plot tvtiFreqGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="frequency") tvtiPropGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="proportion") finalGrob <- arrangeGrob(tvtiFreqGrob, tvtiPropGrob, ncol=1) grid.draw(finalGrob)
As with many other GenVisR functions we can add a heatmap of clinical data via the parameter
clinData which expects a data frame with column names “sample”, “variable”, and “value”. A subset of the clinical data is available to download here, go ahead and load it into R. The clinical data contains information for all samples in the experiment however we are only interested in the discovery cohort, the next step then is to subset our clinical data to only those samples in our main plot. From there we can use melt() to coerce the data frame into the required “long” format and add the clinical data to the proportions plot with the
clinData parameter. In order to more closely match the manuscript figure we will also define a custom color pallette and set the number of columns in the legend with the parameters
# read in the clinical data clinicalData <- read.delim("FL_ClinicalData.tsv") # subset just the discovery cohort clinicalData <- clinicalData[clinicalData$Simple_name %in% mutationData$sample,] all(sort(unique(as.character(clinicalData$Simple_name))) == sort(unique(as.character(mutationData$sample)))) # convert to long format library(reshape2) clinicalData <- melt(data=clinicalData, id.vars="Simple_name") colnames(clinicalData) <- c("sample", "variable", "value") # define a few clinical parameter inputs clin_colors <- c('0'="lightblue",'1'='dodgerblue2','2'='blue1','3'='darkblue','4'='black','FL'='green3','t-NHL'='darkgreen','Treated'='darkred','TreatmentNaive'='red','NA'='lightgrey') # add the clinical data to the plots tvtiFreqGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="frequency") tvtiPropGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="proportion", clinData=clinicalData, clinLegCol = 2, clinVarCol = clin_colors) finalGrob <- arrangeGrob(tvtiFreqGrob, tvtiPropGrob, ncol=1, heights=c(2, 5)) grid.draw(finalGrob)
Up til this point we have glossed over what arrangeGrob() is actually doing however this is no longer a luxury we can afford. In the previous figure we can see that adding the clinical data to our plot has caused our proportion and frequency plots to go out of alignment. This has occurred because the y-axis text in the clinical plot takes up more space than in the frequency plot. Because we added clinical data with GenVisR to the proportion plot those graphics are aligned with each other however TvTi() has no idea the frequency plot exists, it’s added to our graphic after the fact with arrangeGrob(). In order to fix this issue we will need a basic understanding of “grobs”, “TableGrobs”, and “viewports”. First off a grob is just short for “grid graphical object” from the low-level graphics package grid; Think of it as a set of instructions for create a graphical object (i.e. a plot). The graphics library underneath all of ggplot2’s graphical elements are really composed of grob’s because ggplot2 uses grid underneath. A TableGrob is a class from the gtable package and provides an easier way to view and manipulate groups of grobs, it is actually the intermediary between ggplot2 and grid. A “viewport” is a graphics region for which a grob is assigned. We have already been telling GenVisR to output grobs instead of drawing a graphic because we have been using the arrangeGrob() function in gridExtra to arrange and display extra viewports in order to create a final plot. Let’s briefly look at what this actually means, we can show the layout of viewports with the function gtable_show_layout(). In the figure below we have overlayed this layout on to our plot and have shown the table grob to the right. In the table grob we can see that at the top level our grobs are compsed of 2 vertical elements and 1 horizontal elements. The column z corresponds to the order of plot layers, and cells corresponds to the viewport coordinates. So we can see that the grob listed in row 1 is plotted first and is located on the viewport spanning vertical elemnents 1-1 and horizontal elements 1-1 and thus on our layout is in the viewport (1, 1).
# load the gtable library library(gtable) # visualize the viewports of our plot gtable_show_layout(finalGrob)
Pretty simple right? But not so fast the table grob in
finalGrob is a little over simplified on the surface. It is true that our plot is composed of two final grobs however each grob is made up of lists of grobs in the table grob all the way down to the individual base elements which make up the plot. In the figure below we illustrate the second layer of these lists. To re-align the plots we’ll need to peel back the layers until we can acess the original grobs from ggplot2. We will then need to obtain the widths of each of these elements, find the max width with unit.pmax(), and re-assign the width of each as these grobs using the max width.
# find the layer of grobs widths we care about proportionPlotWidth <- finalGrob$grobs[]$grobs[]$widths clinicalPlotWidth <- finalGrob$grobs[]$grobs[]$widths transitionPlotWidth <- finalGrob$grobs[]$grobs[]$widths # find the max width of each of these maxWidth <- unit.pmax(proportionPlotWidth, clinicalPlotWidth, transitionPlotWidth) # re-assign the max widths finalGrob$grobs[]$grobs[]$widths <- as.list(maxWidth) finalGrob$grobs[]$grobs[]$widths <- as.list(maxWidth) finalGrob$grobs[]$grobs[]$widths <- as.list(maxWidth) # plot the plot grid.draw(finalGrob)
Our plot is getting getting close to looking like the one in the manuscript, there are a few final touches we should add however. Specifically let’s add in some vertical lines separating samples by “treatment-naive”, “treated”, and “t-NHL”. Let’s also remove the redundant x-axis text, we can do all this by adding additional ggplot2 layers to the various plots with the parameter
# load ggplot2 library(ggplot2) # create a layer for vertical lines layer1 <- geom_vline(xintercept=c(14.5, 22.5)) # create a layer to remove redundant x-axis labels layer2 <- theme(axis.text.x=element_blank(), axis.title.x=element_blank()) # create the plot tvtiFreqGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="frequency", layers=list(layer1, layer2)) tvtiPropGrob <- TvTi(mutationData, fileType="MGI", out="grob", type="proportion", clinData=clinicalData, clinLegCol = 2, clinVarCol = clin_colors, layers=layer1, clinLayer=layer1) finalGrob <- arrangeGrob(tvtiFreqGrob, tvtiPropGrob, ncol=1, heights=c(2, 5)) grid.draw(finalGrob)
The plot above has been finished, however we recreated all the plots without taking the time to realign them. Try and aswer the questions below regarding our
finalGrob, then try to fix the alignment. If you get stuck go over the “realigning plots” section again.
How many grob layers are in
Get a hint!
try and use finalgrobs$grobs to dig into layers until you reach an endpoint, remember finalgrobs$grobs returns lists.
There are six separate layers of grobs, here they are: finalGrob$grobs[]$grobs[]$grobs[]$grobs[]$grobs
Let’s practice extracting individual grob element from
finalGrob, use grid.draw() to try and draw one of the legend titles.
Get a hint!
The grob names should give a hint regarding which element they correspond to, also remember that $grobs returns a list not the actual table grob.
Here is one solution, there are two others! grid.draw(finalGrob$grobs[]$grobs[]$grobs[]$grobs[]$grobs[])
Finally let’s go ahead and fix the final version of our plot by realigning the grobs in
Get a hint!
You will have to go three layers deep to access the proper viewports!
The answer is actually the same code used in the realign plots section of the tutorial.