circosLegend {MetCirc}R Documentation

Plot a legend for circos plot

Description

'circosLegend' plots a legend for circos plot using group names.

Usage

circosLegend(groupname, highlight = TRUE, colour = NULL, cex = 1)

Arguments

groupname

'character' vector containing "group" and "name" to display, that is a unique identifier of the features, "group" and "name" have to be separated by '"_"' where "group" is the first and "name" is the last element

highlight

'logical', should colours be adjusted to highlight settings?

colour

'NULL' or 'character', colour defines the colours which are used for plotting, if 'NULL' default colours are used

cex

'numeric', parameter that controls size of the legend in the plot

Details

Internal use in 'shinyCircos' or outside of 'shinyCircos' to reproduce figures.

Value

The function will open a new plot and display colours together with labels.

Author(s)

Thomas Naake, thomasnaake@googlemail.com

Examples

data("spectra", package = "MetCirc")
similarityMat <- compare_Spectra(spectra_tissue[1:10], 
    fun = normalizeddotproduct, binSize = 0.01)
linkDf <- createLinkDf(similarityMatrix = similarityMat, 
    spectra = spectra_tissue[1:10], 
    condition = c("SPL", "LIM", "ANT", "STY"), lower = 0.5, upper = 1) 
## cut link data.frame (here: only display links between groups)
linkDf_cut <- cutLinkDf(linkDf, type = "inter")
groupname <- c(as.character(linkDf_cut[, "spectrum1"]), 
            as.character(linkDf_cut[, "spectrum2"]))
groupname <- unique(groupname)
## plot legend
circosLegend(groupname, highlight = TRUE, colour = NULL, cex = 1)


[Package MetCirc version 1.22.0 Index]