Hello,
Maybe this iss what you're looking for. GD is your data.frame.
multi.boxplot <- function(x, by, ...){
x <- as.data.frame(x)
sp <- split(x, by)
len <- length(sp) - 1
n <- ncol(x)
n1 <- n + 1
boxplot(x[[ 1 ]] ~ by, at = 0:len*n1 + 1,
xlim = c(0, (len + 1)*n1), ylim = range(unlist(x)), xaxt = "n", ...)
for(i in seq_len(n)[-1])
boxplot(x[[i]] ~ by, at = 0:len*n1 + i, xaxt = "n", add = TRUE, ...)
axis(1, at = 0:len*n1 + n1/2, labels = names(sp), tick = TRUE)
}
cols <- grep("ReadCount", names(GD))
multi.boxplot(GD[, cols], cut(GD$GeneDensity, breaks=10))
If this is it and you don't like those x-axis tick lables, use
as.integer(cut(...etc...)).
Hope this helps,
Rui Barradas
Em 09-07-2012 20:51, Vining, Kelly escreveu:> Dear UseRs,
> I'm making box plots from a data set that looks like this:
>
>
> Chr Start End GeneDensity ReadCount_Explant ReadCount_Callus
ReadCount_Regen
> 1 1 1 10000 107.82 1.243 1.047
1.496
> 2 1 10001 20000 202.50 0.835 0.869
0.456
> 3 1 20001 30000 158.80 1.813 1.529
1.131
> 4 1 30001 40000 100.53 1.731 1.752
1.610
> 5 1 40001 50000 100.53 3.056 2.931
3.631
> 6 1 50001 60000 100.53 1.960 2.013
2.459
>
> I'm breaking the "GeneDensity" column into deciles, then
making a box plot of the relationship between the GeneDensity parameter and each
of the three "ReadCount" columns. Here's an example of one of my
boxplot commands:
>
> boxplot(GeneDensity$ReadCount_Explant ~ cut(GeneDensitySorted$GeneDensity,
breaks=10), ylim=c(0,40), ylab="RPKM", xlab="GENE DENSITY (LOW
-> HIGH)", main="INTERNODE EXPLANT")
>
> Right now, I'm making three separate graphs: one for each of the three
"ReadCount" columns. I'd like to put all three sets on one graph,
so that each decile is represented by three boxes, one for each ReadCount
category, but don't know how to make that work. I tried this:
>
> boxplot(GeneDensitySorted$ReadCount_Explant ~
cut(GeneDensitySorted$GeneDensity, breaks=10),
GeneDensitySorted$ReadCount_Callus ~ cut(GeneDensitySorted$GeneDensity,
breaks=10), GeneDensitySorted$ReadCount_Regen ~
cut(GeneDensitySorted$GeneDensity, breaks=10), ylim=c(0,40),
ylab="RPKM", xlab="GENE DENSITY (LOW -> HIGH)")
>
> Not surprisingly, I got this error:
>
> Error in as.data.frame.default(data) :
> cannot coerce class '"formula"' into a data.frame
>
> Does anyone know how to accomplish this box plot?
>
> Any help is much appreciated.
>
> --Kelly V.
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>