showLegend

Description

The function showLegend is an example for generating legend in the figure of heatmap3 function. You can use your any plot functions to generate your own legend.

Usage

1
2
showLegend(legend = c("Group A", "Group B"), lwd = 3, cex = 1.1,
  col = c("red", "blue"), ...)

Arguments

legend

a character or expression vector of length ≥ 1 to appear in the legend. Other objects will be coerced by as.graphicsAnnot.

lwd

the line widths for lines appearing in the legend.

cex

character expansion factor relative to current par("cex"). Used for text, and provides the default for pt.cex and title.cex.

col

the color of points or lines appearing in the legend.

...

additional arguments passed on to legend

Examples

1
2
3
4
5
6
RowSideColors<-rep("steelblue2",nrow(mtcars))
RowSideColors[c(4:6,15:17,22:26,29)]<-"lightgoldenrod"
RowSideColors[c(1:3,19:21)]<-"brown1"
heatmap3(mtcars,scale="col",margins=c(2,10),RowSideColors=RowSideColors,legendfun=function()
showLegend(legend=c("European","American","Japanese"),col=c("steelblue2","lightgoldenrod",
"brown1"),cex=1.5))

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.