scatterplotPlusLineggplot2.R

scatterplotPlusLineggplot2.R

#head(ABhumanRat.data)
#        region expression gene
#1 07. amygdala   7.755932 ratB
#2 07. amygdala   7.965554 ratB
#3 07. amygdala   7.896363 ratB
#4 07. amygdala   8.077286 ratB
#5 07. amygdala   8.093814 ratB
#6 07. amygdala   8.185065 ratB

ggplot(ABhumanRat.data, aes(x=region, y=expression, group=gene,color=gene)) 
+ geom_smooth(se=FALSE) 
+ theme(axis.text.x = element_text(angle=90, face="bold", colour="black")) 
+ geom_point(size=3) 
+ ggtitle("MAOA vs. MAOB expression in human & rat")