PISA_studenci

tab <- as.data.frame(table(studenci$CNT))
names(tab) <- c('Kraje','N')
summary(tab$N)
tab$Kolor <- as.factor(ifelse(tab$Kraje=='Poland',1,2))
ggplot(data = tab,
       aes(x = reorder(Kraje,N),
           y = N,
           fill = Kolor)) +
  geom_bar(stat='identity',
           colour='black') +
  theme_bw() +
  theme(axis.text.x = element_text(angle=90,hjust=1,vjust=1,size=8),
        legend.position='none') +
  xlab('Kraje') +
  ylab('Liczba wylosowanych studentów') +
  scale_fill_manual(values = c('red','white'),
                    breaks = 1:2)