R help - Nov 2016 - ggplot

Dear all;

I can not get legend position at the top when using the following code. It
does give at the right.


Your help is greatly appreciated.

p3 <- ggplot(a,

             aes(x = SUPER.PATHWAY,  y = SI)) +

        #theme_classic()

theme_classic(legend.position="top",  axis.text=element_text(size =
16))

(p4 <- p3 + geom_point(aes(color = SUPER.PATHWAY),

                       alpha = 1,

                       size = 2.5,

                       position = position_jitter(width = 1, height = 0.5)))

	[[alternative HTML version deleted]]