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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Screen Shot 2020-01-08 at 12.51.34 PM.png
Type: image/png
Size: 66461 bytes
Desc: not available
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20200108/a744e6e0/attachment.png>
I used width=0.5, to reduce bar widths and aspect.ratio = 2/1 to
reduce white spaces between bars but now text on my x axis is
overlapping and my plot is too elongated, and I don't have those 3
vertical lines trough bars.
Please advise
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(aspect.ratio =
2/1,axis.title.x=element_text(size=1,face="bold"))
p
On Wed, Jan 8, 2020 at 12:52 PM Ana Marija <sokovic.anamarija at
gmail.com> wrote:>
> 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
I made some progress with this:
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(aspect.ratio = 2/1,axis.text.x = ax.11.text,axis.text.y=ay.11.text)
p
But the spaces between ticks on y axis are too big and the plot is
very elongated. Any advice on how to shrink this vertically?
On Wed, Jan 8, 2020 at 1:14 PM Ana Marija <sokovic.anamarija at gmail.com>
wrote:>
> I used width=0.5, to reduce bar widths and aspect.ratio = 2/1 to
> reduce white spaces between bars but now text on my x axis is
> overlapping and my plot is too elongated, and I don't have those 3
> vertical lines trough bars.
>
> Please advise
>
> 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(aspect.ratio =
2/1,axis.title.x=element_text(size=1,face="bold"))
> p
>
> On Wed, Jan 8, 2020 at 12:52 PM Ana Marija <sokovic.anamarija at
gmail.com> wrote:
> >
> > 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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Screen Shot 2020-01-08 at 1.36.25 PM.png
Type: image/png
Size: 107228 bytes
Desc: not available
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20200108/9b3ce359/attachment.png>
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 at 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.
>
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 at 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 at 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.38.42 AM.png
Type: image/png
Size: 123326 bytes
Desc: not available
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20200109/bf069bd7/attachment.png>