Displaying 4 results from an estimated 4 matches for "labx".
Did you mean:
labs
2011 Sep 26
0
horizontal labels for a dendrogram
...like to create visualize the clustering of a dataset with a
dendrogram. I'm using the following script:
data = read.table("data.csv", header=T, sep=";")
require(cluster)
res = as.dendrogram(agnes(data))
chlab <- function(n) {
if(is.leaf(n)) {
att <- attributes(n)
labx <- data$category1[att$label]
lab_color <- ifelse(labx == "A", "black", ifelse(labx == "B", "red",
"green"))
attr(n, "nodePar") <- c(att$nodePar, lab.col = lab_color, pch = NA)
attr(n, "label") <- labx
}
n
}
#...
2005 Jul 06
3
plotting on a reverse log scale
I'd like to do some plots of historical event data on a reverse log
scale, started, say at the year 2000 and going
backwards in time, with tick marks spaced according to log(2000-year).
For example, see:
http://euclid.psych.yorku.ca/SCS/Gallery/images/log-timeline.gif
As an example, I'd like to create a density plot of such data with the
horizontal axis reverse-logged,
a
2014 Sep 08
3
problema con los cambios de marcas temporales en el eje X
Hola de nuevo, acabo de encontrar la solución. He creado una variable ficticia con los días 1 de cada mes en la secuencia temporal que quería y después he actuado de la siguiente manera
attach(Libro1)
plot (xbar~as.Date(fecha,"%d/%m/%y"), type="b", pch=19,cex=2,xaxt="n")
xlabels<-strptime(ofeje, format = "%d/%m/%y")
axis.Date(1,
2001 Aug 17
0
Solved: Help plotting some data
...how easy it is get R to do the
things you want to do with it.
Gav
my.biplot <- function (x, y, var.axes = TRUE, col, cex = c(1, 0.4),
xlabs = NULL, ylabs = NULL, expand = 1, xlim = NULL, ylim = NULL,
arrow.len = 0.1,
pscores = FALSE, xlab="", ylab="", ...)
{
labx <- xlab
laby <- ylab
n <- nrow(x)
p <- nrow(y)
if (missing(xlabs)) {
xlabs <- dimnames(x)[[1]]
if (is.null(xlabs))
xlabs <- 1:n
}
xlabs <- as.character(xlabs)
dimnames(x) <- list(xlabs, dimnames(x)[[2]])
if (missin...