mefunistatus

load("osym_data_2017.RData")
arrange(osym_data_2017,exam_type,desc(min_score))

## # A tibble: 11,031 x 14
##    program_id                      university_name     city
##         <int>                                <chr>    <chr>
##  1  203910072                     KOÇ ÜNYVERSYTESY YSTANBUL
##  2  202110992 YHSAN DO<U+00D0>RAMACI BYLKENT ÜNYVERSYTESY   ANKARA
##  3  203111263        YSTANBUL MEDYPOL ÜNYVERSYTESY YSTANBUL
##  4  102210108                BO<U+00D0>AZYÇY ÜNYVERSYTESY YSTANBUL
##  5  102210135                BO<U+00D0>AZYÇY ÜNYVERSYTESY YSTANBUL
##  6  102210417                BO<U+00D0>AZYÇY ÜNYVERSYTESY YSTANBUL
##  7  203910081                     KOÇ ÜNYVERSYTESY YSTANBUL
##  8  102210056                BO<U+00D0>AZYÇY ÜNYVERSYTESY YSTANBUL
##  9  203910618                     KOÇ ÜNYVERSYTESY YSTANBUL
## 10  202110938 YHSAN DO<U+00D0>RAMACI BYLKENT ÜNYVERSYTESY   ANKARA
## # ... with 11,021 more rows, and 11 more variables: faculty_name <chr>,
## #   program_name <chr>, exam_type <chr>, general_quota <int>,
## #   general_placement <int>, min_score <dbl>, max_score <dbl>,
## #   val_quota <dbl>, val_placement <dbl>, val_min_score <dbl>,
## #   val_max_score <dbl>

sirali1 <- arrange(osym_data_2017,desc(min_score),exam_type)
sirali2 <- sirali1 %>% mutate(sira=row_number())
MEFS <- filter(sirali2, university_name == "MEF ÜNİVERSİTESİ")
MEFS2 <- filter(MEFS,sira<1000)

ggplot(MEFS2, aes(sira,program_name),e) + geom_point()