Well, it was easy to find: ?barplot and look at all the arguments.
But I agree with Greg that this kind of look is (and should be) pretty much history. I'm not very fond of barplots with as many groups as you have. Since your variable X appears to be a discretized continuous variable, why not use a line plot, connecting the midpoints of your X intervals. You can then use different line types. With 4 lines, it wouldn't be too confusing. Peter Ehlers Nair, Murlidharan T wrote:
Thanks Peter. Where did you find that option? It's really cool Cheers../Murli -----Original Message-----From: Peter Ehlers [mailto:ehl...@ucalgary.ca] Sent: Wednesday, September 23, 2009 3:56 PMTo: Nair, Murlidharan T Cc: r-help@r-project.org Subject: Re: [R] dotchart to barplots Murli, Two points: 1. I think you might want las=1; 2. have a look at the density= argument, i.e. add density=c(10,20,30,40) to your call. Peter Ehlers Henrique Dallazuanna wrote:Perhaps a white border: barplot(t(as.matrix(intersect.data[,2:5])), border = 'white', beside = T, horiz = T, legend.text = names(intersect.data)[-1], names.arg = intersect.data[,1], cex.axis = 0.7, cex.names = 0.7, las=2) Or you can use the 'col' argument to select further colors. On Wed, Sep 23, 2009 at 4:35 PM, Nair, Murlidharan T <mn...@iusb.edu> wrote:What I mean by design is a black and white lines or something that is more distinguishing than the grey levels? Thanks for the legends :) Cheers../Murli -----Original Message----- From: Henrique Dallazuanna [mailto:www...@gmail.com] Sent: Wednesday, September 23, 2009 3:32 PM To: Nair, Murlidharan T Cc: r-help@r-project.org Subject: Re: [R] dotchart to barplots Sorry, byt what you mean by 'designs'? You can add a legend with: barplot(t(as.matrix(intersect.data[,2:5])), beside = T, horiz = T, legend.text = names(intersect.data)[-1], names.arg = intersect.data[,1], cex.axis = 0.7, cex.names = 0.7, las=2) On Wed, Sep 23, 2009 at 4:26 PM, Nair, Murlidharan T <mn...@iusb.edu> wrote:Ok, I could make it perpendicular by specifying las=2 barplot(t(as.matrix(intersect.data[,2:5])), beside = T, horiz = T, names.arg = intersect.data[,1], cex.axis = 0.7, cex.names = 0.7, las=2) Still working on the other though. Cheers../Murli -----Original Message----- From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On Behalf Of Nair, Murlidharan T Sent: Wednesday, September 23, 2009 3:21 PM To: Henrique Dallazuanna Cc: r-help@r-project.org Subject: Re: [R] dotchart to barplots I had tried names.arg=c(intersect.data[,1]) so that was the problem. That solves part of what need. I there a way to rotate how it is written on the y-axis? Also, use designs instead of gray scale and making keys for it? Thanks for chipping in. Cheers../Murli -----Original Message----- From: Henrique Dallazuanna [mailto:www...@gmail.com] Sent: Wednesday, September 23, 2009 3:09 PM To: Nair, Murlidharan T Cc: r-help@r-project.org Subject: Re: [R] dotchart to barplots Try this: barplot(t(as.matrix(intersect.data[,2:5])), beside = T, horiz = T, names.arg = intersect.data[,1], cex.axis = 0.7, cex.names = 0.7) On Wed, Sep 23, 2009 at 4:01 PM, Nair, Murlidharan T <mn...@iusb.edu> wrote:Hi, I am trying to plot the following data so that it can be visually represented well. I tried the dotchart but I felt it was too spread out. Then I tried the barplot which is good enough for me. Is there a way to give the labels for the y-axis as in the dot chart? Also, I feel the grey level is confusing, so is there options for designs within the bars? I cannot use color as the journal wants it in black and white. I also need to specify the key. If someone has done it, I would appreciate your input. Cheers../Murli intersect.data<-structure(list(X = structure(c(1L, 3L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 2L, 4L, 5L, 6L, 7L), .Label = c("1-100", "1001-1100", "101-200", "1101-1200", "1201-1300", "1301-1400", "1401-1532", "201-300", "301-400", "401-500", "501-600", "601-700", "701-800", "801-900", "901-1000"), class = "factor"), MCM.Cell.vs.MCM.Tumor = c(6L, 7L, 12L, 9L, 13L, 7L, 11L, 4L, 8L, 11L, 11L, 12L, 4L, 15L, 28L ), Ttest.Tumor.vs.Ttest.Cell = c(4L, 2L, 7L, 9L, 8L, 10L, 4L, 7L, 8L, 7L, 5L, 7L, 4L, 5L, 9L), Ttest.Cell.vs.MCM.Cell = c(66L, 22L, 14L, 7L, 11L, 6L, 12L, 7L, 9L, 8L, 7L, 9L, 9L, 5L, 20L), Ttest.Tumor.vs.MCM.Tumor = c(31L, 18L, 8L, 12L, 5L, 8L, 5L, 8L, 9L, 8L, 10L, 12L, 13L, 8L, 18L)), .Names = c("X", "MCM.Cell.vs.MCM.Tumor", "Ttest.Tumor.vs.Ttest.Cell", "Ttest.Cell.vs.MCM.Cell", "Ttest.Tumor.vs.MCM.Tumor" ), class = "data.frame", row.names = c(NA, -15L)) dotchart(as.matrix(intersect.data[-1]), labels=intersect.data[,1], cex=0.5, gpch=70) barplot(t(as.matrix(intersect.data[,2:5])), beside=T, horiz=T) ______________________________________________ R-help@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.-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O ______________________________________________ R-help@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.-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
______________________________________________ R-help@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.
