Hello,
Below is some simple R code I have used to create a stacked bar chart. However
the y-axis tick marks do not reflect the data. The minimum and maximum data
values I have are 3073351 and 66425013 respectively but the graph has data from
0 and the maximum is different Data file is attached. What am I doing wrong?
Please help as I cannot be sure the data is represented correctly in the graph
(attached).
fn <-"~/Documents/chr7Data.txt"
x<-read.table(fn,check.names = TRUE, header=T)
d <- data.frame(x)
theChart<-ggplot(d, aes(x=factor(Congenic),y=Position, fill=Strain,
theme_rect="white")) + geom_bar(stat='identity', position =
"stack" ) + scale_fill_manual(values=c("deepskyblue1",
"red2", "green3", "steelblue4",
"lightblue4", "gray70")) + ylab(c("Position"))+
ggtitle("Strain specific SNP distribution in the congenics") +
#coord_cartesian(ylim = c(min(d$Position), max(d$Position))) +
#scale_y_continuous(breaks=seq(0, 200000000, 50000000)) +
theme_bw()+
theme(plot.title = element_text(size=23),
axis.text.x = element_text(size=13, angle=90), #20 before
axis.text.y = element_text(size=13),
panel.border = element_rect(colour="BLACK",size=0.5),
axis.title.x = element_text(size=12),
axis.title.y = element_text(size=12,angle = 90),
panel.background = element_rect(fill="transparent"),
legend.text=element_text(size=13),
legend.title=element_text(size=12)
#plot.background = element_rect(fill =
"transparent",colour = NA)
)
png("~/Documents/sendToRGrp.png",950,750)
print(theChart)
dev.off()
Many thanks,
Michelle
This email may have a PROTECTIVE MARKING, for an explanation please see:
http://www.mrc.ac.uk/About/Informationandstandards/Documentmarking/index.htm
-------------- next part --------------
A non-text attachment was scrubbed...
Name: sendToRGrp.png
Type: image/png
Size: 83252 bytes
Desc: sendToRGrp.png
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20150325/a01abb3d/attachment-0001.png>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: chr7Data.txt
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20150325/a01abb3d/attachment-0001.txt>