PISA_porownanieKrajow

wynik_matematyka$Kolor <- ifelse(wynik_matematyka$CNT=='Poland','red','black')
OECD_mean <- mean(wynik_matematyka$PV)
### wykresy
ggplot(data = wynik_matematyka,
       aes(x=reorder(CNT,PV),
           y=PV)) +
  geom_errorbar(aes(ymin=PV-z_alpha*SE,
                    ymax=PV+z_alpha*SE)) +
  geom_point(colour='red') +
  theme_bw() + 
  theme(axis.text.x = element_text(angle=90,
                                   hjust=1,
                                   vjust=1,
                                   size = 8,
                                   colour=wynik_matematyka$Kolor[order(wynik_matematyka$PV)]),
        legend.position = 'none') +
  geom_hline(aes(yintercept=OECD_mean)) + 
  xlab('Kraj') +
  ylab('Umiejętości matematyczne')