[R] editing plot

Ana Marija @okov|c@@n@m@r|j@ @end|ng |rom gm@||@com
Thu Jan 9 17:43:20 CET 2020


HI Rui,

Thank you so much for getting back to me!
I did implement your idea (see attach):

ax.11.text <- element_text(size = 10)
ay.11.text <- element_text(size = 10)
p<-ggplot(data=toplot, aes(x=cat, y=props)) +
  geom_bar(stat="identity",width=0.5, fill="steelblue")+
  geom_errorbar(aes(ymin=props-1.96*ses, ymax=props+1.96*ses), width=.1,
                position=position_dodge(.9))  +

  geom_signif(comparisons=list( c("All eQTL", "eQTL from 103 genes"),
                               c("All SNPs", "eQTL from 103 genes")),
              y_position=c(0.065, 0.07), tip_length=0, annotation=c("p
= 0.0012", "p = 0.0023")) +
  scale_y_continuous(breaks=seq(0,.06,by=.01)) +
  xlab("") + ylab("Proportion p-values < 0.05") +
  theme_classic()+
  theme(panel.grid.major.x = element_line(size = 0.1, color = "grey"),
        panel.grid.major.y = element_blank(),
        panel.grid.minor = element_blank(),axis.text.x =
ax.11.text,axis.text.y=ay.11.text
  )
p

I was wondering is there is any way to decrease the amount of white
spaces around the bars?

Thanks
Ana

On Thu, Jan 9, 2020 at 10:41 AM Ana Marija <sokovic.anamarija using gmail.com> wrote:
>
> HI Rui,
>
> Thank you so much for getting back to me!
> I did implement your idea (see attach):
>
> ax.11.text <- element_text(size = 10)
> ay.11.text <- element_text(size = 10)
> p<-ggplot(data=toplot, aes(x=cat, y=props)) +
>   geom_bar(stat="identity",width=0.5, fill="steelblue")+
>   geom_errorbar(aes(ymin=props-1.96*ses, ymax=props+1.96*ses), width=.1,
>                 position=position_dodge(.9))  +
>
>   geom_signif(comparisons=list( c("All eQTL", "eQTL from 103 genes"),
>                                c("All SNPs", "eQTL from 103 genes")),
>               y_position=c(0.065, 0.07), tip_length=0, annotation=c("p
> = 0.0012", "p = 0.0023")) +
>   scale_y_continuous(breaks=seq(0,.06,by=.01)) +
>   xlab("") + ylab("Proportion p-values < 0.05") +
>   theme_classic()+
>   theme(panel.grid.major.x = element_line(size = 0.1, color = "grey"),
>         panel.grid.major.y = element_blank(),
>         panel.grid.minor = element_blank(),axis.text.x =
> ax.11.text,axis.text.y=ay.11.text
>   )
> p
>
> I was wondering is there is any way to decrease the amount of white
> spaces around the bars?
>
> Thanks
> Ana
>
> On Wed, Jan 8, 2020 at 2:58 PM Rui Barradas <ruipbarradas using sapo.pt> wrote:
> >
> > Hello,
> >
> > Maybe
> >
> >
> > theme(panel.grid.major.x = element_line(size = 0.1, color = "grey"),
> >          panel.grid.major.y = element_blank(),
> >          panel.grid.minor = element_blank()
> >    )
> >
> >
> >
> > Note that if you remove the y axis grid you must set the x axis grid
> > explicitly.
> >
> > Hope this helps,
> >
> > Rui Barradas
> >
> > Às 18:52 de 08/01/20, Ana Marija escreveu:
> > > Hello,
> > >
> > > I have this plot in attach. I was wondering how can I change my
> > > plotting code in order to remove these gray horizontal background
> > > lines but keep these two vertical lines? These two vertical lines
> > > don't need to be gray, can be any other type of lines but they must be
> > > at the same place. Also how can I make these two bars narrower?
> > >
> > > library("ggplot2")
> > > p<-ggplot(data=toplot, aes(x=cat, y=props)) +
> > >    geom_bar(stat="identity", fill="steelblue")+
> > >    geom_errorbar(aes(ymin=props-1.96*ses, ymax=props+1.96*ses), width=.2,
> > >                  position=position_dodge(.9))  +
> > >
> > >    geom_signif(comparisons=list( c("All eQTL", "eQTL from 103 genes"),
> > >                                 c("All SNPs", "eQTL from 103 genes")),
> > >                y_position=c(0.065, 0.07), tip_length=0, annotation=c("p
> > > = 0.0012", "p = 0.0023")) +
> > >    scale_y_continuous(breaks=seq(0,.06,by=.01)) +
> > >    xlab("") + ylab("Proportion p-values < 0.05") +
> > >    theme_minimal()
> > > p
> > >
> > >
> > > ______________________________________________
> > > R-help using 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.
> > >

-------------- next part --------------
A non-text attachment was scrubbed...
Name: Screen Shot 2020-01-09 at 10.42.17 AM.png
Type: image/png
Size: 67901 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20200109/3cf8b31d/attachment.png>


More information about the R-help mailing list