1 | givelabel(object, labod, labsd, indexplot = 0)
|
object |
|
labod |
|
labsd |
|
indexplot |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (object, labod, labsd, indexplot = 0)
{
if ((labod == 0) && (labsd == 0)) {
return(invisible(object))
}
if (indexplot != 1) {
order.od <- order(object$od * (-1))
order.sd <- order(object$sd * (-1))
if (labod != 0) {
for (i in 1:labod) {
lab <- ifelse(is.character(names(object$od)),
names(object$od[order.od[i]]), order.od[i])
text(object$sd[order.od[i]], object$od[order.od[i]] +
par("cxy")[2], labels = lab)
}
}
if (labsd != 0) {
for (i in 1:labsd) {
lab <- ifelse(is.character(names(object$sd)),
names(object$od[order.sd[i]]), order.sd[i])
text(object$sd[order.sd[i]], object$od[order.sd[i]] +
par("cxy")[2], labels = lab)
}
}
}
else {
order.sd <- order(object$sd * (-1))
if (labsd != 0) {
for (i in 1:labsd) {
lab <- ifelse(is.character(names(object$sd)),
names(object$sd[order.sd[i]]), order.sd[i])
text(order.sd[i], object$sd[order.sd[i]] + par("cxy")[2],
labels = lab)
}
}
}
return(invisible(object))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.