Displaying 4 results from an estimated 4 matches for "xbot".
Did you mean:
bot
2005 Oct 23
1
Coloring leaves, twigs and labels in plot.dendrogram()
...e)) {
child <- subtree[[k]]
yBot <- attr(child, "height")
if (getOption("verbose"))
cat("ch.", k, "@ h=", yBot, "; ")
if (is.null(yBot))
yBot <- 0
xBot <- if (center)
mean(bx$limit[k:(k + 1)])
else bx$limit[k] + .midDend(child)
hasE <- !is.null(ePar <- attr(child, "edgePar"))
if (!hasE)
ePar <- edgePar
i <- if (!is.leaf(child) || hasE)...
2004 Mar 12
1
plot.dendrogram and expressions
...added to a plot with `text'. Is there
a specific reason to do so (expect for the determination of the size of
the character string to be plotted)? Otherwise one could plot the
attributes directly via
diff dendrogram.R /usr/src/R/src/library/stats/R/dendrogram.R
317c317
< text(xBot, yBot + vln, attr(child,"label"))
---
> text(xBot, yBot + vln, nodeText)
337c337
< text(mx, my, attr(child, "edgetext"))
---
> text(mx, my, edgeText)
344c344
< text(xBot, my, attr(child, "edgetext&quo...
2009 Jan 16
2
Winsorizing Multiple Variables
...a new data frame with all the variables in the
original order.
Thanks for any help!
-Karl
#The function I'm working from
win<-function(x,tr=.2,na.rm=F){
if(na.rm)x<-x[!is.na(x)]
y<-sort(x)
n<-length(x)
ibot<-floor(tr*n)+1
itop<-length(x)-ibot+1
xbot<-y[ibot]
xtop<-y[itop]
y<-ifelse(y<=xbot,xbot,y)
y<-ifelse(y>=xtop,xtop,y)
win<-y
win
}
#Produces an example data frame, ss is the observation id, vars 1-5
are the variables I want to winzorise.
ss
=
c
(1
:
5
);var1
=
rnorm
(5
);var2
=
rnorm...
2011 Jan 25
1
dendrogram plot does not draw long labels ?
Hello,
It seems that the plot function for dendrograms does not draw labels when
they are too long.
> hc <- hclust(dist(USArrests), "ave")
> dend1 <- as.dendrogram(hc)
> dend2 <- cut(dend1, h=70)
> dd <- dend2$lower[[1]]
> plot(dd) # first label is drawn
> attr(dd[[1]], "label") <- "aaaaaaaaaaaaaaaaaa"
> plot(dd) # first label is