| circosLegend {MetCirc} | R Documentation |
circosLegend plots a legend for circos plot using
group names.
circosLegend(groupname, highlight=TRUE, colour=NULL, cex=1)
groupname |
|
highlight |
|
colour |
|
cex |
|
Internal use in shinyCircos or outside of shinyCircos
to reproduce figures.
The function will open a new plot and display colours together with labels.
Thomas Naake, thomasnaake@googlemail.com
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)