.Rhistory

ggplot(data) + aes(Year) + geom_hist()
ggplot(data) + aes(Year) + geom_histogram()
ggplot(data) + aes(Year) + geom_histogram(stat = 'count')
setwd("~/Documents/GitHub/2023Survey")
# Chunk 1
library(tidyverse)
library(readxl)
# Chunk 2
data = read_xlsx("Astronomy Undergraduate Survey 2023 (Responses).xlsx")
orig_names = colnames(data)
data = data %>% rename(
#Page 1
Timestamp = "Timestamp",
Year = "Current Year",
Gender = "Which gender do you identify as?",
First_gen = "Are you a first-generation college student? (The formal definition of a first-generation college student is a student whose parents did not complete a four-year college degree)",
Disibility = "Do you identify as having a disability?",
Racial_Ethic_Minority = "Do you identify as a member of a racial or ethnic minority group?",
Additional_Majors = "List additional majors or minors you are pursuing:",
Feedback1 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....8",
#Page 2
I_Belong = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [I belong in the Astronomy Department]",
Members_Respect_Me = 'Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [Members in the Astronomy Department respect me]',
Ideas_Valued = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [My ideas are valued by members of the Astronomy Department]",
Achievements_Recognized = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [People in the Astronomy Department recognize my achievements ]",
Feel_Welcome = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [I feel welcome to Astronomy Department events]",
Feel_Alienated = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [I feel alienated from the Astronomy Department]",
Interact_Faculty_Staff = "How often do you interact with the following groups outside of class? [Astronomy Faculty / Staff (professors, scientists, administration, etc)]",
Interact_Grad_Students = "How often do you interact with the following groups outside of class? [Astronomy Graduate students]",
Interact_Academic_Advisors = "How often do you interact with the following groups outside of class? [Academic Advisors]",
Interact_Other_Undergrads = "How often do you interact with the following groups outside of class? [Other Undergraduates]",
Interact_Astro_Club = "How often do you interact with the following groups outside of class? [Astronomy Club]",
Outreach = "How do you find out about Astronomy events or opportunities?",
Outreach_Responses = "Out of the options from the last question, do you have any that you prefer? Feel free to elaborate.",
Online_Community = "Please rate how you agree with the following statements about proposed ideas in the Astronomy Department [I would benefit from and join a moderated online community for Astronomy Undergraduates (Discord, Slack, Google Group, etc)]",
Mentorship_Interest = "Please rate how you agree with the following statements about proposed ideas in the Astronomy Department [I am interested in a program for mentoring recently declared undergraduate Astronomy-Physics students]",
Town_Hall = "Please rate how you agree with the following statements about proposed ideas in the Astronomy Department [I would participate in an Astronomy Undergraduate Town Hall to discuss improvements within the department with faculty and advisors]",
Non_Created_Events = "Are there any Astronomy events or opportunities that you would like to attend that have not been created?",
Cannot_Attend_Events = "Has there been any Astronomy events or opportunities that you have wanted to participate in, but have not been able to? Feel free to elaborate on the reasons why (schedule conflict, social climate issue, etc.).",
Feedback2 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....27",
#Page 3
Astro_Credit_Appropriate = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [The number of Astronomy credits/classes is appropriate for the major]",
Physics_Credit_Appropriate = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [The number of Physics credits/classes is appropriate for the major]",
Other_Credit_Appropriate = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [The number of other credits/classes (math, computer science, etc.) is appropriate for the major]",
Studies_Going_Well = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I am doing well in my studies]",
Know_Where_Help = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I know where to get help in my classes if/when I need it]",
Satisfied_Study_Spaces_Num = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I am satisfied with the number of study spaces for Astronomy students]",
Satisfied_Study_Spaces_Qual = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I am satisfied with the quality of the study spaces for Astronomy students]",
Utilized_Handbook = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I have utilized the Astronomy-Physics Undergrad Handbook (such as the resource at https://docs.google.com/document/d/1JZuQKvu5Dsk0FwS9rAd9vmvEWidWGXTM/)]",
Classes_Removed = "Are there any classes or requirements you would remove from the major?",
Classes_Added = "Are there any classes or requirements you would add to the major?",
AstroPhysics_Met_Expectations = "Has the Astronomy-Physics academic program met your expectations? Feel free to elaborate.",
Feedback3 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....39",
#Page 4
Pursuing_Graduate = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I am planning on pursuing a Graduate degree in Astronomy or Physics]",
Prepared_For_Grad_School = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [...I am prepared and have the resources for Graduate school applications ]",
AstroPhysics_Career = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I am planning on pursuing a career in Astrophysics]",
Plan_Pursue_Research = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I am planning on pursuing an REU, internship, or other research program outside of UW-Madison]",
Prepared_For_Applications = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [...I am prepared and have the resources for these applications]",
AstroPhysics_Degree_Prepares_Me = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [My Astronomy-Physics degree is preparing me to succeed in my plans after university]",
Worry_About_College_Living = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I worry often about paying for college or other living expenses]",
Planned_Career_Path = "What is your planned career path? Feel free to elaborate on what your plans after university are.",
Involved_In_Research = "Are you involved/have you been involved in Astronomy or Physics research at UW-Madison?",
URS_Participation = "Have you participated in the Undergraduate Research Scholars (URS) program for Astronomy research?",
Major_Barriers = "Do you feel like there are any major barriers to getting into or completing the Astronomy opportunities (such as research, volunteer work, etc.) you wish to participate in? These barriers could be curricular or extra-curricular.",
Feedback4 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....51",
#Page 5
Hours_Research = "About how many hours per week do you spend working on research?",
How_Long_Current_Research = "How long have you been working on your current research?",
Research_Straightforward = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [It was straightforward to find a project and get started with research]",
Enjoy_Mentor_Team = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [I enjoy working with my research mentor and/or team]",
Help_Available = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [Help is available when I have a problem with my research]",
Adequate_Guidance = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [I receive adequate guidance from my mentor]",
Funding_Strain = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [Funding has placed a strain on my ability to conduct research]",
Meaningful_Research = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [My research feels meaningful to developing my career and expanding my astronomical knowledge]",
Feedback5 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....60"
)
new_names = colnames(data)
#Easy check to see what names were changed to
name_changes = tibble("Original Names" = orig_names,
"New Names" = new_names)
View(name_changes)
ggplot(data) + aes(Astro_Credit_Appropriate) + geom_histogram()
ggplot(data) + aes(Astro_Credit_Appropriate) + geom_histogram(stat = count)
ggplot(data) + aes(Astro_Credit_Appropriate) + geom_histogram(stat = "count")
# Chunk 1
library(tidyverse)
library(readxl)
# Chunk 2
data = read_xlsx("Astronomy Undergraduate Survey 2023 (Responses).xlsx")
orig_names = colnames(data)
data = data %>% rename(
#Page 1
Timestamp = "Timestamp",
Year = "Current Year",
Gender = "Which gender do you identify as?",
First_gen = "Are you a first-generation college student? (The formal definition of a first-generation college student is a student whose parents did not complete a four-year college degree)",
Disibility = "Do you identify as having a disability?",
Racial_Ethic_Minority = "Do you identify as a member of a racial or ethnic minority group?",
Additional_Majors = "List additional majors or minors you are pursuing:",
Feedback1 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....8",
#Page 2
I_Belong = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [I belong in the Astronomy Department]",
Members_Respect_Me = 'Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [Members in the Astronomy Department respect me]',
Ideas_Valued = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [My ideas are valued by members of the Astronomy Department]",
Achievements_Recognized = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [People in the Astronomy Department recognize my achievements ]",
Feel_Welcome = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [I feel welcome to Astronomy Department events]",
Feel_Alienated = "Please rate how much you agree with the following statements about how you are treated in the Astronomy Department: [I feel alienated from the Astronomy Department]",
Interact_Faculty_Staff = "How often do you interact with the following groups outside of class? [Astronomy Faculty / Staff (professors, scientists, administration, etc)]",
Interact_Grad_Students = "How often do you interact with the following groups outside of class? [Astronomy Graduate students]",
Interact_Academic_Advisors = "How often do you interact with the following groups outside of class? [Academic Advisors]",
Interact_Other_Undergrads = "How often do you interact with the following groups outside of class? [Other Undergraduates]",
Interact_Astro_Club = "How often do you interact with the following groups outside of class? [Astronomy Club]",
Outreach = "How do you find out about Astronomy events or opportunities?",
Outreach_Responses = "Out of the options from the last question, do you have any that you prefer? Feel free to elaborate.",
Online_Community = "Please rate how you agree with the following statements about proposed ideas in the Astronomy Department [I would benefit from and join a moderated online community for Astronomy Undergraduates (Discord, Slack, Google Group, etc)]",
Mentorship_Interest = "Please rate how you agree with the following statements about proposed ideas in the Astronomy Department [I am interested in a program for mentoring recently declared undergraduate Astronomy-Physics students]",
Town_Hall = "Please rate how you agree with the following statements about proposed ideas in the Astronomy Department [I would participate in an Astronomy Undergraduate Town Hall to discuss improvements within the department with faculty and advisors]",
Non_Created_Events = "Are there any Astronomy events or opportunities that you would like to attend that have not been created?",
Cannot_Attend_Events = "Has there been any Astronomy events or opportunities that you have wanted to participate in, but have not been able to? Feel free to elaborate on the reasons why (schedule conflict, social climate issue, etc.).",
Feedback2 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....27",
#Page 3
Astro_Credit_Appropriate = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [The number of Astronomy credits/classes is appropriate for the major]",
Physics_Credit_Appropriate = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [The number of Physics credits/classes is appropriate for the major]",
Other_Credit_Appropriate = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [The number of other credits/classes (math, computer science, etc.) is appropriate for the major]",
Studies_Going_Well = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I am doing well in my studies]",
Know_Where_Help = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I know where to get help in my classes if/when I need it]",
Satisfied_Study_Spaces_Num = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I am satisfied with the number of study spaces for Astronomy students]",
Satisfied_Study_Spaces_Qual = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I am satisfied with the quality of the study spaces for Astronomy students]",
Utilized_Handbook = "Please rate how you feel about the following statements related to the Astronomy-Physics academic experience.
For your reference, the requirements for the major can be found here: https://guide.wisc.edu/undergraduate/letters-science/astronomy/astronomy-physics-bs/#requirementstext
Please be aware of the scroll bar at the bottom of this question. Scroll to see all answer options. [I have utilized the Astronomy-Physics Undergrad Handbook (such as the resource at https://docs.google.com/document/d/1JZuQKvu5Dsk0FwS9rAd9vmvEWidWGXTM/)]",
Classes_Removed = "Are there any classes or requirements you would remove from the major?",
Classes_Added = "Are there any classes or requirements you would add to the major?",
AstroPhysics_Met_Expectations = "Has the Astronomy-Physics academic program met your expectations? Feel free to elaborate.",
Feedback3 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....39",
#Page 4
Pursuing_Graduate = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I am planning on pursuing a Graduate degree in Astronomy or Physics]",
Prepared_For_Grad_School = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [...I am prepared and have the resources for Graduate school applications ]",
AstroPhysics_Career = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I am planning on pursuing a career in Astrophysics]",
Plan_Pursue_Research = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I am planning on pursuing an REU, internship, or other research program outside of UW-Madison]",
Prepared_For_Applications = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [...I am prepared and have the resources for these applications]",
AstroPhysics_Degree_Prepares_Me = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [My Astronomy-Physics degree is preparing me to succeed in my plans after university]",
Worry_About_College_Living = "Please rate how much you agree with the following statements about your career and plans beyond university.
Note: For Questions 2 and 5, select NA if you do not plan on applying to the programs in the previous question. [I worry often about paying for college or other living expenses]",
Planned_Career_Path = "What is your planned career path? Feel free to elaborate on what your plans after university are.",
Involved_In_Research = "Are you involved/have you been involved in Astronomy or Physics research at UW-Madison?",
URS_Participation = "Have you participated in the Undergraduate Research Scholars (URS) program for Astronomy research?",
Major_Barriers = "Do you feel like there are any major barriers to getting into or completing the Astronomy opportunities (such as research, volunteer work, etc.) you wish to participate in? These barriers could be curricular or extra-curricular.",
Feedback4 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....51",
#Page 5
Hours_Research = "About how many hours per week do you spend working on research?",
How_Long_Current_Research = "How long have you been working on your current research?",
Research_Straightforward = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [It was straightforward to find a project and get started with research]",
Enjoy_Mentor_Team = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [I enjoy working with my research mentor and/or team]",
Help_Available = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [Help is available when I have a problem with my research]",
Adequate_Guidance = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [I receive adequate guidance from my mentor]",
Funding_Strain = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [Funding has placed a strain on my ability to conduct research]",
Meaningful_Research = "Please rate the following statements about Astronomy/Physics Research at UW-Madison [My research feels meaningful to developing my career and expanding my astronomical knowledge]",
Feedback5 = "Do you have any additional comments for this section? Any additional information or feedback is appreciated....60"
)
new_names = colnames(data)
#Easy check to see what names were changed to
name_changes = tibble("Original Names" = orig_names,
"New Names" = new_names)
#tally other majors
#attributes() attr()
#tally other forms of communication
View(data)
data$Additional_Majors %>% view()
data$Additional_Majors[1]
data$Additional_Majors[14]
data$Additional_Majors[15]
data$Additional_Majors[16]
data$Additional_Majors[17]
data$Additional_Majors[18]
data$Additional_Majors[19]
data$Additional_Majors[20]
data$Additional_Majors[21]
data$Additional_Majors[22]
data$Additional_Majors[23]
data$Additional_Majors[24]
data$Additional_Majors[25]
data$Additional_Majors[26]
data$Additional_Majors[27]
data$Additional_Majors[28]
data$Additional_Majors[29]
data$Additional_Majors[30]
data$Additional_Majors[31]
data$Additional_Majors[32]
data$Additional_Majors[33]
data$Additional_Majors[34]
data$Additional_Majors[36]
addl_majors = c(
c("Classical Studies"),
c("Physics", "Math"),
c("Physics"),
c("Data Science"),
c("Data Science"),
c("Philosophy", "Math"),
c("Atmospheric Science", "Data Science"),
c("Physics", "History", "Math", "German"),
c("Math"),
c("Math", "Economics"),
c("NA"),
c("Physics"),
c("Physics", "Computer Science"),
c("Computer Science", "Game Design"),
c("Physics", "Math", "Environmental Studies"),
c("Computer Science"),
c("Physics"),
c("Physics", "Science Communication"),
c("Data Science", "Computer Science"),
c("NA"),
c("Data Science", "Math"),
c("Physics", "Math", "Biological Sciences"),
c("Computer Science"),
c("Physics", "Environmental Studies"),
c("Physics"),
c("NA"),
c("Physics"),
c("Physics", "Math"),
c("Physics", "Math"),
c("Math"),
c("Computer Science"),
c("Political Science"),
c("Physics", "Math")
)
legnth(addl_majors)
addl_majors
addl_majors[1]
addl_majors[2]
addl_majors = list(
c("Classical Studies"),
c("Physics", "Math"),
c("Physics"),
c("Data Science"),
c("Data Science"),
c("Philosophy", "Math"),
c("Atmospheric Science", "Data Science"),
c("Physics", "History", "Math", "German"),
c("Math"),
c("Math", "Economics"),
c("NA"),
c("Physics"),
c("Physics", "Computer Science"),
c("Computer Science", "Game Design"),
c("Physics", "Math", "Environmental Studies"),
c("Computer Science"),
c("Physics"),
c("Physics", "Science Communication"),
c("Data Science", "Computer Science"),
c("NA"),
c("Data Science", "Math"),
c("Physics", "Math", "Biological Sciences"),
c("Computer Science"),
c("Physics", "Environmental Studies"),
c("Physics"),
c("NA"),
c("Physics"),
c("Physics", "Math"),
c("Physics", "Math"),
c("Math"),
c("Computer Science"),
c("Political Science"),
c("Physics", "Math")
)
View(addl_majors)
addl_majors[1]
addl_majors[2]
addl_majors[2][1]
data$x = addl_majors
data$Additional_Majors =  list(
c("Classical Studies"),
c("Physics", "Math"),
c("Physics"),
c("Data Science"),
c("Data Science"),
c("Philosophy", "Math"),
c("Atmospheric Science", "Data Science"),
c("Physics", "History", "Math", "German"),
c("Math"),
c("Math", "Economics"),
c("NA"),
c("Physics"),
c("Physics", "Computer Science"),
c("Computer Science", "Game Design"),
c("Physics", "Math", "Environmental Studies"),
c("Computer Science"),
c("Physics"),
c("Physics", "Science Communication"),
c("Data Science", "Computer Science"),
c("NA"),
c("Data Science", "Math"),
c("Physics", "Math", "Biological Sciences"),
c("Computer Science"),
c("Physics", "Environmental Studies"),
c("Physics"),
c("NA"),
c("Physics"),
c("Physics", "Math"),
c("Physics", "Math"),
c("Math"),
c("Computer Science"),
c("Political Science"),
c("Physics", "Math")
)
data$Additional_Majors = list(
c("Classical Studies"),
c("Physics", "Math"),
c("Physics"),
c("Data Science"),
c("Data Science"),
c("Philosophy", "Math"),
c("Atmospheric Science", "Data Science"),
c("Physics", "History", "Math", "German"),
c("Math"),
c("Math", "Economics"),
c("NA"),
c("Physics"),
c("Physics", "Computer Science"),
c("Computer Science", "Game Design"),
c("Physics", "Math", "Environmental Studies"),
c("Computer Science"),
c("Physics"),
c("Physics", "Science Communication"),
c("Data Science", "Computer Science"),
c("NA"),
c("Data Science", "Math"),
c("Physics", "Math", "Biological Sciences"),
c("Computer Science"),
c("Physics", "Environmental Studies"),
c("Physics"),
c("NA"),
c("Physics"),
c("Physics", "Math"),
c("Physics", "Math"),
c("Math"),
c("Computer Science"),
c("Political Science"),
c("Physics", "Math")
)
length(data)
nrows(data)
nrow(data)
data$Additional_Majors
data$Additional_Majors[1]
data$Additional_Majors[2]
data$Additional_Majors[2][1]
data$Additional_Majors[2][1][1]
data$Additional_Majors[2]
data$Additional_Majors[2]
data$Additional_Majors[[2]]
data$Additional_Majors[[1]]
data$Additional_Majors[[3]]
#for(i in 1:nrow(data)) {
#  curr = data$Additional_Majors[[i]]}
y = data$Additional_Majors
View(y)
#for(i in 1:nrow(data)) {
#  curr = data$Additional_Majors[[i]]}
y = data$Additional_Majors
c(y
)
#for(i in 1:nrow(data)) {
#  curr = data$Additional_Majors[[i]]}
y = data$Additional_Majors
z = c(y)
#for(i in 1:nrow(data)) {
#  curr = data$Additional_Majors[[i]]}
y = data$Additional_Majors
z = c(c(y))
View(z)
#for(i in 1:nrow(data)) {
#  curr = data$Additional_Majors[[i]]}
y = unlist(data$Additional_Majors)
#for(i in 1:nrow(data)) {
#  curr = data$Additional_Majors[[i]]}
y = unlist(data$Additional_Majors)
table(y)
y = unlist(data$Additional_Majors)
y = table(y)
order(y)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
my_table
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, horiz = T, laz = 1)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, horiz = T)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, laz = 1)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, laz = 1)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 1)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 1)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 2)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 4)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 2)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 2)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
par(XPD = T)
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
par(xpd = T)
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
par(xpd = T)
barplot(my_table, las = 3)
y = unlist(data$Additional_Majors)
my_table = table(y)
my_table = my_table[order(-my_table)]
barplot(my_table, las = 3)