SRAD per faculty

January 15, 2016

Iā€™m interested in comparing departments within the college based on metrics of productivity. There are many ways to do this but here I examined the SRAD (Sponsored Research Administration Distribution) per faculty. I obtain the annual numbers from https://www.research.fsu.edu/research-offices/sra/about/srad-distribution-reports/ I then ran the following code.

Number of Faculty

Order from left to right is: ECO, PA, PS, SOC, URP, GEO

AllFac = read.csv(file = "FacultyNumbers.csv", header = TRUE)
JunFac = read.csv(file = "JuniorFacultyNumbers.csv", header = TRUE)
SenFac = AllFac - JunFac
SenFac$Year = AllFac$Year
Wide = read.csv(file = "SRADDistribution.csv", header = TRUE)
names(Wide) = c("Year", "Economics", 
                "Public Administration", "Political Science", 
                "Sociology", "Urban and Regional Planning", 
                "Geography")
Wide2 = Wide/AllFac[3:10, ]
Wide2$Year = Wide$Year
library("tidyr")
library("ggplot2")
## Warning: package 'ggplot2' was built under R version 3.2.3
library("ggthemes")
Long2 = gather(Wide2, Department, SRADpF, 2:7)
library("scales")
ggplot(Long2, aes(x = Year, y = SRADpF, color = Department)) +
  geom_line(size = 2) +
  scale_x_continuous(breaks = 2007:2014) +
  scale_y_continuous(labels = dollar) +
  ylab("SRAD Per Faculty") +
  theme_economist() +
  ggtitle("SRAD Distribution Per Faculty") +
  scale_color_few(palette = "medium")

Rankings

library("dplyr")
## 
## Attaching package: 'dplyr'
## 
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library("ggthemes")
Ranks = Long2 %>%
  group_by(Year) %>%
  mutate(Rank = rank(-SRADpF))
ggplot(Ranks, aes(x = Year, y = Rank, color = Department)) +
  geom_point(size = 10, shape = 15) +
  scale_x_continuous(breaks = 2007:2014) +
  scale_y_reverse(breaks = 1:6) +
  ylab("Rank") +
  theme_economist() +
  ggtitle("Departmental Rank\nBased on SRAD Distribution Per Faculty") +
  scale_color_few(palette = "medium")

Faculty Counts over Time. Tried to use xlsx package but javascript did not work.

Faculty = read.csv("Faculty2005.csv", header = TRUE)
Faculty %>%
  group_by(Employee.Classification, Descr.2) %>%
  summarize(Fac = length(unique(Name))) %>%
  filter(Employee.Classification == "Regular") %>%
  filter(Descr.2 == "Economics" | Descr.2 == "Geography" |
         Descr.2 == "Political Science" | Descr.2 == "Public Administration" |
         Descr.2 == "Sociology" | Descr.2 == "Urban & Regional Planning")
## Source: local data frame [6 x 3]
## Groups: Employee.Classification [1]
## 
##   Employee.Classification                   Descr.2   Fac
##                    (fctr)                    (fctr) (int)
## 1                 Regular                 Economics    25
## 2                 Regular                 Geography    13
## 3                 Regular         Political Science    23
## 4                 Regular     Public Administration    14
## 5                 Regular                 Sociology    20
## 6                 Regular Urban & Regional Planning    10
Faculty %>%
  group_by(Employee.Classification, Descr.2, Job.Code) %>%
  filter(Job.Code == "90039S") %>%
  summarize(JFac = length(unique(Name))) %>%
  filter(Employee.Classification == "Regular") %>%
  filter(Descr.2 == "Economics" | Descr.2 == "Geography" |
         Descr.2 == "Political Science" | Descr.2 == "Public Administration" |
         Descr.2 == "Sociology" | Descr.2 == "Urban & Regional Planning")
## Source: local data frame [6 x 4]
## Groups: Employee.Classification, Descr.2 [6]
## 
##   Employee.Classification                   Descr.2 Job.Code  JFac
##                    (fctr)                    (fctr)   (fctr) (int)
## 1                 Regular                 Economics   90039S     6
## 2                 Regular                 Geography   90039S     4
## 3                 Regular         Political Science   90039S     8
## 4                 Regular     Public Administration   90039S     3
## 5                 Regular                 Sociology   90039S     8
## 6                 Regular Urban & Regional Planning   90039S     3