Thanks everyone especially Rishi to solve this issue Regards,
Moshichi On Fri, Sep 20, 2019 at 22:26 Jeff Newmiller <jdnew...@dcn.davis.ca.us> wrote: > Using this list as a labor pool to procure code for generating > publication-quality plots is abuse. Please read the Posting Guide and the > documentation for the ggplot package or go pay someone offlist for their > services. > > On September 20, 2019 4:15:18 AM PDT, Moshiur Rahman < > mrahmankuf...@gmail.com> wrote: > >Thanks a lot Rishi for your very cordial effort and great help. But > >still I > >need some help to improve it as the plot doesn't clearly depict which > >female belongs to which family and this can be detected by drawing a > >line > >from 1-4 for F1, 5-8 for F2.... > > > >Another problem I can see that the position of MID (P1,2,3...) is not > >looking well which are somehow noisy. > > > >Finally, can we drop the bars at the bottom of x-axis that I did > >with scale_y_continuous? > > > >Please do me some favour to complete this plot which I need for a > >publication. > > > >With kind regards, > > > >Moshi > > > >On Fri, Sep 20, 2019 at 7:45 PM ঋষি ( ऋषि / rIsHi ) > ><rishi.das...@gmail.com> > >wrote: > > > >> Here is the solution inspired by this post > >> > > > https://stackoverflow.com/questions/18165863/multirow-axis-labels-with-nested-grouping-variables > >> > >> > >> > data$Female <- factor(data$Female, levels = > >> c("F1","F2","F3","F4","F5","F6","F7","F8","F9","F10")) > >> > > >> > > >ggplot(data,aes(x=family,y=offs.surv.perct,fill=treat))+geom_bar(stat="identity", > >> position="dodge")+ > >> geom_text(aes(label = MID), angle=90)+ > >> facet_wrap(~Female, strip.position = "bottom", scales = > >"free_x",nrow=1)+ > >> theme(panel.spacing = unit(0, "lines"), > >> strip.background = element_blank(), > >> strip.placement = "outside") > >> > >> > >> On Fri, Sep 20, 2019 at 11:51 AM Moshiur Rahman > ><mrahmankuf...@gmail.com> > >> wrote: > >> > >>> Thanks Rishi, > >>> > >>> Please find attached the data herewith. > >>> > >>> > >>> > >>> On Fri, Sep 20, 2019 at 5:48 PM ঋষি ( ऋषि / rIsHi ) < > >>> rishi.das...@gmail.com> wrote: > >>> > >>>> There are no attached data . > >>>> > >>>> On Fri, Sep 20, 2019 at 11:40 AM Moshiur Rahman > ><mrahmankuf...@gmail.com> > >>>> wrote: > >>>> > >>>>> Dear ggplot2 experts, > >>>>> > >>>>> I'm struggling to make a plot having family id in x-axis and > >female id > >>>>> below that family id where each 4 families have a single female > >id. > >>>>> > >>>>> I also need to add male id on top of each bar which I can do > >before > >>>>> grid.arrange, but fail after doing it. So, any suggestions? > >>>>> > >>>>> Please find below my codes and help me to complete it perfectly. > >>>>> #data > >>>>> data <- read.table("R-help_ggplot2.csv", header=TRUE, sep=",") > >>>>> names(data) > >>>>> #packages > >>>>> library(ggplot2) > >>>>> library(grid) > >>>>> library(gridExtra) > >>>>> library(scales) > >>>>> library(ggpubr) > >>>>> #plot codes > >>>>> p1 = > >>>>> > >ggplot(data,aes(x=factor(family),y=offs.surv.perct,fill=factor(treat)))+ > >>>>> geom_bar(stat="identity", position="dodge")+ > >>>>> #facet_wrap(~ Female)+ > >>>>> geom_bar(stat="identity", position="dodge", colour="black", > >>>>> show.legend= TRUE) + # show_guide = TRUE gives legend boarder > >>>>> #geom_hline(yintercept=15, size=0.5, linetype = 2)+ ### middle > >line > >>>>> scale_fill_manual(values=c("grey", "white")) + # grey80 is > >closer to > >>>>> white than black > >>>>> xlab("Family") + > >>>>> ylab (expression(paste("Offspring survival rate (%)"))) + > >>>>> #coord_cartesian(xlim=c(0,40), ylim=c(0,60), clip="off")+ > >>>>> scale_y_continuous(expand = c(0, 0), limits = c(0, 60))+ > >>>>> theme(legend.title = element_text(colour="black", size=12))+ > >>>>> theme(legend.text = element_text(colour="black", size=11))+ > >>>>> theme(legend.background = element_blank())+ > >>>>> theme(legend.key = element_blank())+ > >>>>> theme(legend.box.background = element_blank())+ > >>>>> theme(legend.key.size = unit(2, "mm"),legend.key.width = > >>>>> unit(0.5,"cm"))+ > >>>>> theme(legend.position=c(0.05,0.9),legend.direction > >>>>> ="vertical",legend.box = "vertical")+ # add legend on top > >>>>> theme(panel.background = element_rect(fill = "transparent"))+ > >>>>> theme(axis.line = element_line(colour = > >>>>> "black"),axis.text.x=element_text(size=10, > >>>>> colour="black"),axis.text.y=element_text(size=10, colour="black"), > >>>>> axis.title.y = element_text(size=12, colour = > >>>>> "black",margin=margin(0,5,0,0)), > >>>>> axis.title.x = element_blank(), > >>>>> strip.text.x = element_blank(),# remove top level title > >(high > >>>>> and > >>>>> low) > >>>>> strip.background = element_blank(),# remove top level > >background > >>>>> panel.grid.major = element_blank(),# remove grid line > >within the > >>>>> plot > >>>>> panel.grid.minor = element_blank(), > >>>>> panel.border = element_blank()) > >>>>> p1 > >>>>> > >>>>> ### legend correction > >>>>> p2<- p1 + guides(fill = guide_legend(title="Fertilization > >>>>> group",keywidth = > >>>>> 1,keyheight = 1, > >>>>> title.theme = element_text(size=12, > >colour > >>>>> = > >>>>> "black", angle = 0)))+ > >>>>> theme(legend.text = element_text(size = 12, colour = "black", > >angle = > >>>>> 0)) > >>>>> > >>>>> p2 > >>>>> > >>>>> ###plot margins > >>>>> p3<-p2+theme(plot.margin = unit(c(1,1,1.7,1), "lines")) > >>>>> p3 > >>>>> > >>>>> #x-axis label > >>>>> p4<-grid.arrange( > >>>>> p3, > >>>>> bottom = textGrob( > >>>>> "Family and female number", > >>>>> gp = gpar(fontsize = 12, cex=1), #fontface = "bold", > >>>>> vjust = 0.5, hjust = 0.5,x = 0.52)) > >>>>> > >>>>> # annotation (NOT WORKING) > >>>>> p5<-p4+annotate("text", label = "M1", x = 1, y = 25.03, fontface = > >1, > >>>>> size=3,angle = 90) > >>>>> p5 > >>>>> p6<-p5+annotate("text", label = "M2", x = 2, y = 18.37, fontface = > >1, > >>>>> size=3,angle = 90) > >>>>> p6 > >>>>> p7<-p6+annotate("text", label = "M3", x = 3, y = 21.7, fontface = > >1, > >>>>> size=3,angle = 90) > >>>>> p7 > >>>>> p8<-p7+annotate("text", label = "M1-2-3", x = 4, y = 19.1, > >fontface= 1, > >>>>> size=3,angle = 90) > >>>>> p8 > >>>>> Fig1.1<-p8+annotate("segment", size=0.3, x=c(1,1,4),xend=c(1,4,4), > >>>>> y= c(26,28,28), yend=c(28,28,21))+ > >>>>> annotate("text",x=2.45,y=29.5,fontface = 1, size=3,angle = > >>>>> 90,label=c("F1")) > >>>>> > >>>>> Fig1.1 > >>>>> > >>>>> Please find attached also my data. > >>>>> > >>>>> Any assistance will be highly appreciated. > >>>>> > >>>>> Regards, > >>>>> > >>>>> Moshi > >>>>> > >>>>> > >>>>> JSPS Postdoctoral Fellow > >>>>> Laboratory of Population Biology > >>>>> Department of Marine Biosciences > >>>>> Graduate School of Marine Science and Technology > >>>>> Tokyo University of Marine Science and Technology > >>>>> 4-5-7 Konan, Minato-ku, Tokyo 108-8477, Japan > >>>>> Mobile: 050-6874-9072 > >>>>> ______________________________________________ > >>>>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > >>>>> 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. > >>>>> > >>>> > >>>> > >>>> -- > >>>> > >>>> > >>>> > >>>> With regards > >>>> Rishi Das Roy > >>>> > >>> > >>> > >>> -- > >>> Md. Moshiur Rahman, PhD > >>> > >>> JSPS Postdoctoral Fellow > >>> Laboratory of Population Biology > >>> Department of Marine Biosciences > >>> Graduate School of Marine Science and Technology > >>> Tokyo University of Marine Science and Technology > >>> 4-5-7 Konan, Minato-ku, Tokyo 108-8477, Japan > >>> Mobile: 050-6874-9072 > >>> > >>> ......................... > >>> > >>> Professor > >>> Fisheries and Marine Resource Technology Discipline > >>> Khulna University, Khulna - 9208 > >>> BANGLADESH. > >>> Google scholar: > >>> https://scholar.google.com.au/citations?user=uElrJSsAAAAJ&hl=en > >>> ResearchGate: > >https://www.researchgate.net/profile/Md_Moshiur_Rahman2 > >>> ORCID: https://orcid.org/my-orcid > >>> > >> > >> > >> -- > >> > >> > >> > >> With regards > >> Rishi Das Roy > >> > > -- > Sent from my phone. Please excuse my brevity. > -- Md. Moshiur Rahman, PhD JSPS Postdoctoral Fellow Laboratory of Population Biology Department of Marine Biosciences Graduate School of Marine Science and Technology Tokyo University of Marine Science and Technology 4-5-7 Konan, Minato-ku, Tokyo 108-8477, Japan Mobile: 050-6874-9072 ......................... Professor Fisheries and Marine Resource Technology Discipline Khulna University, Khulna - 9208 BANGLADESH. Google scholar: https://scholar.google.com.au/citations?user=uElrJSsAAAAJ&hl=en ResearchGate: https://www.researchgate.net/profile/Md_Moshiur_Rahman2 ORCID: https://orcid.org/my-orcid [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.