library(vroom)
library(plyr)
library(magrittr)
library(ggplot2)
file="http://data.num.edu.mn/dataset/5178c26b-274e-4318-89ad-6e51cd3ef3af/resource/c250f9ee-43a4-4932-a7ef-6834219fabfa/download/-2018-autumn.csv"

data<-vroom(file)

## Observations: 3,827
## Variables: 7
## chr [7]: Оюутны_хувийн_дугаар, Санал_1_өгсөн_хөтөлбөрийн_дугаар, Санал_1_өгсөн_хөтө...
## 
## Call `spec()` for a copy-pastable column specification
## Specify the column types with `col_types` to quiet this message

names(data)[7]<-"hotolbor1"
df<-data %>% count('hotolbor1')
df<-head(arrange(df,desc(df$freq)), n = 7)
ggplot(df,aes(y=df$freq,x=df$hotolbor1,fill=df$hotolbor1))+geom_bar(stat="identity")