(Acest articol a fost publicat pentru prima dată pe Jason Bryerși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Am lucrat la o prezentare privind pregătirea pentru facultate și utilizarea SAT/ACT pentru admiterea la facultate, ca parte a Evaluării diagnostice și a realizării competențelor universitare. Am vrut să văd cum s-a schimbat utilizarea acestor evaluări cu mize mari în ultimul deceniu. Se pare că am scris un pachet cu ani în urmă pentru a lucra cu Sistemul integrat de date pentru educația postsecundară, ipeds si din fericire inca functioneaza! În prezent, este doar pe Github și poate fi instalat folosind remotes pachet.
remotes::install_github('jbryer/ipeds')
The surveys cadrul de date inclus în pachet oferă metadate pentru diferitele fișiere de date disponibile pe site-ul web IPEDS. The AHD fișierul de date oferă informații despre director pentru fiecare instituție din Statele Unite.
data(surveys, package="ipeds")
Suntem interesați de admcon7 variabilă care are trei niveluri care indică modul în care fiecare instituție utilizează testele pentru deciziile de admitere.
levels <- c('1' = 'Required',
'5' = 'Test Optional',
'3' = 'Test Blind')
Următorul bloc va descărca informațiile din director pentru 2014 până în 2023 (cel mai recent an disponibil în prezent).
admissions <- data.frame()
years <- 2014:2023
for(i in years) {
adm <- getIPEDSSurvey('ADM', year = i)
adm$admcon7 <- factor(adm$admcon7,
levels = names(levels),
labels = levels)
adm$year <- i
admissions <- rbind(admissions, adm(,c('year', 'admcon7')))
}
Figura de mai jos arată o schimbare destul de izbitoare în modul în care instituțiile au folosit evaluări cu mize mari, cum ar fi SAT și ACT pentru deciziile de admitere în jurul anului 2020 (nu sunt sigur ce s-a întâmplat în acel an 😉).
tab <- table(admissions$year, admissions$admcon7) |>
prop.table(1) |>
reshape2::melt() |>
dplyr::rename(Year = Var1, Test_Use = Var2)
p <- ggplot(tab, aes(x = Year, y = value, group = Test_Use, color = Test_Use)) +
geom_path(linewidth = 1.5) +
geom_point(shape = 16, size = 4, color="white") +
geom_point(shape = 1, size = 4) +
scale_color_manual('Test usage: ',
values = c('Required' = '#7209B7',
'Test Optional' = '#84DB8F',
'Test Blind' = '#E2BD6B')) +
scale_y_continuous(labels = scales::percent) +
scale_x_continuous(breaks = c(years, max(years) + 1),
labels = c(years, max(years) + 1),
limits = c(min(years), max(years) + 1)) +
theme_minimal() +
# xlim(c(2014, 2024)) +
theme(legend.position = 'bottom') +
ggtitle('Use of high stakes assessments (SAT/ACT) for college admissions') +
ylab('Percentage of Institutions')
directlabels::direct.label(p, "last.qp")
