Add histogram at pleace of legend using colors from 'colorRamp'.
legendHist(
x,
colRamp = NULL,
location = "bottomright",
legTit = NULL,
cex = 0.7,
srt = 67,
offS = NULL,
border = TRUE,
silent = FALSE,
debug = FALSE,
callFrom = NULL
)
This function produces a histogram on the current plottig device
(numeric) main input/component of plot
(character or integer) set of colors, default is rainbow-like
(character) for location of histogram inside existing plot (may be 'br','bl','tl','tr','bottomright', 'bottomleft','topleft','topright')
(character, length=1) optional title for histogram-insert
(numeric) expansion factor (see also par
)
(numeric) angle for histogram text labels (90 will give vertical label) (see also par
)
(NULL
or numeric, length=5) fine-tuning of where histogram-insert will be placed and how elements therein are ditributed
(default c(xOff=0.2,yOff=0.25,leftOffS=0.05, upperBarEnd=1.05,txtOff=0.02),
1st and 2nd determine proportio of insert relative to entire plotting region, 3rd defines space left on bottom for text,
4th if bars hit ceiling of insert or proportion to leave, 5th for shifting text towards top when turned other than 90 degrees )
(logical) decide of draw gray rectangle or not around legend
(logical) suppress messages
(logical) display additional messages for debugging
(character) allow easier tracking of messages produced
dat <- rnorm(90); plot(dat)
legendHist(dat, col=1:5)
Run the code above in your browser using DataLab