Thanks Jim. Roopa
---------------------------------------
Roopa Shree Subbaiaih
Post Doctoral Fellow
Department of Dermatology
School of Medicine
Case Western Reserve University
Cleveland, OH-44106
Tel:+1 216 368 0211
On Mon, May 5, 2014 at 6:02 PM, Jim Lemon <j...@bitwrit.com.au> wrote:
> On 05/06/2014 05:02 AM, Roopa Subbaiaih wrote:
>
>> Hello,
>>
>> I am trying to plot bargraphs susing Sciplot. Is there a way to increase
>> the width of the bar graphs and decrease the space b/n the groups? I am
>> pasting the script as well as attaching the graph.
>>
>> Bio6<- read.csv("Data/Plin1.csv",na.strings="",header=T)
>> attach(Bio6)
>> head(Bio6)
>> par(family="serif", font=11)
>> Bio6$Sps<- factor(Bio6$Sps, levels = c("FFA1", "FFA2","FFA3"))
>> Bio6$Gp<- factor(Bio6$Gp, levels = c("N-FFA1",
>> "FU1","FA1","N-FFA2","FU2","FA2","N-FFA3","FU3","FA3"))
>> bargraph.CI(Sps, O.D, group = Gp, data = Bio6,ylab = "Relative expression
>> levels", cex.lab = 1.5, y.leg = 6,cex.leg = 0.82,cex=1.5, axisnames=TRUE,
>> col = c("red","blue","grey"),space=c(0, 0.5), ylim=c(0,7),cex.names =
>> 1.0,density = c(30,30,30), legend = TRUE, main="PLIN1")
>> detach(Bio6)
>>
>> O.D Gp Sps
>> 1 1.000000 N-FFA1 FFA1
>> 2 2.996432 FU1 FFA1
>> 3 3.223413 FU1 FFA1
>> 4 3.524465 FU1 FFA1
>> 5 1.311971 FA1 FFA1
>> 6 6.755860 FA1 FFA1
>> 7 1.566000 FA1 FFA1
>> 8 1.000000 N-FFA2 FFA2
>> 9 2.741612 FU2 FFA2
>> 10 2.800644 FU2 FFA2
>> 11 3.569509 FU2 FFA2
>> 12 4.141500 FA2 FFA2
>> 13 7.049476 FA2 FFA2
>> 14 4.694674 FA2 FFA2
>> 15 1.000000 N-FFA3 FFA3
>> 16 4.163601 FU3 FFA3
>> 17 3.903986 FU3 FFA3
>> 18 4.730000 FU3 FFA3
>> 19 0.000000 FA3 FFA3
>> 20 0.000000 FA3 FFA3
>> 21 0.000000 FA3 FFA3
>>
>> Hi Roopa,
> bargraph.CI does something with the "space" argument that I can't quite
> work out. I can get a reasonable plot like this:
>
> Bmeans<-matrix(by(Bio6$O.D,Bio6$Gp],FUN=mean),ncol=3)
> barpos<-barplot(Bmeans,beside=TRUE,
> ylim=c(0,7),col=c("red","blue","grey"),space=c(0.1,1),main="PLIN1")
> legend(8.5,7.1,
> c("N-FFA1","FU1","FA1","N-FFA2","FU2","FA2","N-FFA3","FU3","FA3"),
> fill=c("red","blue","grey"),bty="n")
> library(plotrix)
> Bse<-matrix(by(Bio6$O.D,Bio6$Gp,FUN=std.error),ncol=3)
> dispersion(barpos,Bmeans,Bse,display.na=FALSE)
>
> Jim
>
[[alternative HTML version deleted]]
______________________________________________
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.
