wybory2.R

ggplot(elections1, aes(x=daysToElections, y=support)) + 
  geom_point(aes(shape=source, color=candidate), size=4) +
  scale_shape_manual(values=LETTERS) + theme_bw() + xlab("days to elections") + ylab("support (%)") +
  scale_y_continuous(limits=c(10,75), breaks=seq(10,70,10)) +
  geom_smooth(size=2,aes(color=candidate),se=FALSE, method="lm") + 
  scale_color_manual(values=c("blue3", "orange3"))