2 Add graphic edit approved Nov 21 '12 at 5:45 naught101 2,39711 gold badge4040 silver badges7676 bronze badges Here is some sample R code for a couple of ways to do it, you will probably want to expand on this (include labels etc.) and maybe turn it ito a function: my.dat <- lapply( 1:20, function(x) rnorm(x+10, sample( 10, 1), sample(3,1) ) ) tmp <- boxplot(my.dat, plot=FALSE, range=0) # box and median only plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[2,], seq_along(my.dat), tmp$$stats[4,] ) points( tmp$$stats[3,], seq_along(my.dat) ) # wiskers and implied box plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[1,], seq_along(my.dat), tmp$$stats[2,] ) segments( tmp$$stats[4,], seq_along(my.dat), tmp$$stats[5,] ) points( tmp$$stats[3,], seq_along(my.dat) )  Here is some sample R code for a couple of ways to do it, you will probably want to expand on this (include labels etc.) and maybe turn it ito a function: my.dat <- lapply( 1:20, function(x) rnorm(x+10, sample( 10, 1), sample(3,1) ) ) tmp <- boxplot(my.dat, plot=FALSE, range=0) # box and median only plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[2,], seq_along(my.dat), tmp$$stats[4,] ) points( tmp$$stats[3,], seq_along(my.dat) ) # wiskers and implied box plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[1,], seq_along(my.dat), tmp$$stats[2,] ) segments( tmp$$stats[4,], seq_along(my.dat), tmp$$stats[5,] ) points( tmp$$stats[3,], seq_along(my.dat) )  Here is some sample R code for a couple of ways to do it, you will probably want to expand on this (include labels etc.) and maybe turn it ito a function: my.dat <- lapply( 1:20, function(x) rnorm(x+10, sample( 10, 1), sample(3,1) ) ) tmp <- boxplot(my.dat, plot=FALSE, range=0) # box and median only plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[2,], seq_along(my.dat), tmp$$stats[4,] ) points( tmp$$stats[3,], seq_along(my.dat) ) # wiskers and implied box plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[1,], seq_along(my.dat), tmp$$stats[2,] ) segments( tmp$$stats[4,], seq_along(my.dat), tmp$$stats[5,] ) points( tmp$$stats[3,], seq_along(my.dat) )  1 answered Aug 5 '11 at 14:53 Greg Snow 41k11 gold badge6969 silver badges134134 bronze badges Here is some sample R code for a couple of ways to do it, you will probably want to expand on this (include labels etc.) and maybe turn it ito a function: my.dat <- lapply( 1:20, function(x) rnorm(x+10, sample( 10, 1), sample(3,1) ) ) tmp <- boxplot(my.dat, plot=FALSE, range=0) # box and median only plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[2,], seq_along(my.dat), tmp$$stats[4,] ) points( tmp$$stats[3,], seq_along(my.dat) ) # wiskers and implied box plot( range(tmp$$stats), c(1,length(my.dat)), xlab='', ylab='', type='n' ) segments( tmp$$stats[1,], seq_along(my.dat), tmp$$stats[2,] ) segments( tmp$$stats[4,], seq_along(my.dat), tmp$$stats[5,] ) points( tmp$$stats[3,], seq_along(my.dat) )