Make one CSV for Arrests and Discipline

Is there some kind of relationship between liquor and drug violations? Arrests? Are they different in both regards? - if there is a high liquor violation rate, is there a high drug violation rate etc??? - avg number or total number of liquor/drug violations? Get this one number (summary) and correlate them - see if liquor violations are related with the drug violations

Hampden-Sydney has some obviously drastic activity, what is going on here and what is this sharp decline after 2012-2014 due to?

Why is there such a difference in violations vs arrests? - back to the threshold and has anything changed

What happened with HSC arrests????

aggdis = subset(aggdis, state == “” & sector_cd == 2) aggarr = subset(aggarr, state == “” & sector_cd == 2) ggplot(data=aggdis,aes(x=year,y=percentdrug,color=instnm))+geom_line()+geom_point()+ggtitle(“Drug Violations”) ggplot(data=aggdis,aes(x=year,y=percentliquor,color=instnm))+geom_line()+geom_point()+ggtitle(“Liquor Violations”) ggplot(data=aggarr,aes(x=year,y=percentdrug,color=instnm))+geom_line()+geom_point()+ggtitle(“Drug Arrests”) ggplot(data=aggarr,aes(x=year,y=percentliquor,color=instnm))+geom_line()+geom_point()+ggtitle(“Liquor Arrests”)

Arrests on campus are a function of students whereas there might be some noncounted idividuals ie townies that are counted and divided by total number of students