PISA_graficznie

### przedział ufności
alpha <- 0.05
z_alpha <- qnorm(1-alpha/2)
wynik$Kolor <- ifelse(wynik$CNT=='Poland','red','black')
### wykresy
ggplot(data = wynik,
       aes(x=reorder(CNT,PV1MATH),
           y=PV1MATH)) +
  geom_errorbar(aes(ymin=PV1MATH-z_alpha*SE,
                    ymax=PV1MATH+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$Kolor[order(wynik$PV1MATH)]),
        legend.position = 'none') +
  xlab('Kraj') +
  ylab('PV1MATH')