# EXAMPLE 1: Working with intances of class annotatedVariants
# one missense, one nonsense point mutation and one deletion
variants = data.frame(
row.names=c("missense", "deletion", "nonsense"),
start=c(106157528, 106157635, 106193892),
end=c(106157528, 106157635, 106193892),
chromosome=c("4", "4", "4"),
strand=c("+", "+", "+"),
seqRef=c("A", "G", "C"),
seqMut=c("G", "-", "T"),
seqSur=c("TACAGAA", "TAAGCAG", "CGGCGAA"),
stringsAsFactors=FALSE)
# annotate variants with affected genes, exons and codons (may take a minute to finish)
## Not run: varAnnot = annotateVariants(variants)
# plot variants for gene TET2 having the Ensembl id "ENSG00000168769"
# when passing no transcript, the largest transcript annotated in the Ensembl database for this gene will be selected automatically
## Not run: plotVariants(data=varAnnot, gene="ENSG00000168769", title="plotVariants Example", legend=TRUE)
# EXAMPLE 2: Working with a data frame
# two missense at one position, one nonsense point mutation and one deletion
# it is possible to assign a color to every single mutation independently from its type
variants = data.frame(
label=c("A>G","A>G(2)","delG","C>T"),
pos=c(831,831,867,1437),
mutation=c("M","M","D","N"),
color=c("black", "black", "green", "red"),
stringsAsFactors=FALSE
)
# more detailed names for mutation abbreviations can be passed as mutationInfo
# this is useful for the legend, but can also be generated automatically
mutationInfo = data.frame(
mutation=c("M","D","S","N"),
legend=c("Missense","Nonsense","Silent","Deletion"),
stringsAsFactors=FALSE
)
# regions of interest can be highlighted using the regions parameter
regions = data.frame(
name = c("region1", "region2"),
start = c(700, 1400),
end = c(1000, 1900),
color = c("red", "blue")
)
# using the horiz parameter, multiple mutations occurring at the same place can be either aligned ...
# ... vertically
## Not run: plotVariants(data=variants, gene="ENSG00000168769", transcript="ENST00000513237", regions=regions, mutationInfo=mutationInfo, horiz=FALSE, title="'plotVariants' Example", legend=TRUE)
# ... or horizontally in groups
## Not run: plotVariants(data=variants, gene="ENSG00000168769", transcript="ENST00000513237", regions=regions, mutationInfo=mutationInfo, horiz=TRUE, title="'plotVariants' Example", legend=TRUE)
# group mutations by their label and not by their position (which is the default)
## Not run: plotVariants(data=variants, gene="ENSG00000168769", transcript="ENST00000513237", regions=regions, mutationInfo=mutationInfo, groupBy="label", horiz=TRUE, title="'plotVariants' Example", legend=TRUE)
Run the code above in your browser using DataLab