The article was essentially about mens idea about masculinity, and its subsequent role in society. A survey was given in light of the 2018 #MeToo movement, which is/was a movement where folks came out about their abuses primarily from men. The goal of this survey was to attempt to quantify if the #MeToo movement had any effect on how men feel. Did it change their ideas of what makes a man a man, or had it fallen on deaf ears.
The article is linked here:
What Do Men Think It Means To Be A Man?.
library(readr)
library(dplyr)
menSurvey <- read_csv("https://raw.githubusercontent.com/justinm0rgan/data607/main/Assignments/1/data/raw-responses.csv?token=GHSAT0AAAAAABPMFD5D66OXX2IVUENVMOPKYP6TDXA", show_col_types = F,col_select = 2:98)
head(menSurvey)# A tibble: 6 × 97
StartDate EndDate q0001 q0002 q0004_0001 q0004_0002 q0004_0003 q0004_0004
<chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 5/10/18 4:01 5/10/18 … Some… Some… Not selec… Not selec… Not selec… Pop cultu…
2 5/10/18 6:30 5/10/18 … Some… Some… Father or… Not selec… Not selec… Not selec…
3 5/10/18 7:02 5/10/18 … Very… Not … Father or… Not selec… Not selec… Not selec…
4 5/10/18 7:27 5/10/18 … Very… Not … Father or… Mother or… Other fam… Not selec…
5 5/10/18 7:35 5/10/18 … Very… Very… Not selec… Not selec… Other fam… Not selec…
6 5/10/18 8:25 5/10/18 … Very… Some… Father or… Not selec… Not selec… Not selec…
# … with 89 more variables: q0004_0005 <chr>, q0004_0006 <chr>, q0005 <chr>,
# q0007_0001 <chr>, q0007_0002 <chr>, q0007_0003 <chr>, q0007_0004 <chr>,
# q0007_0005 <chr>, q0007_0006 <chr>, q0007_0007 <chr>, q0007_0008 <chr>,
# q0007_0009 <chr>, q0007_0010 <chr>, q0007_0011 <chr>, q0008_0001 <chr>,
# q0008_0002 <chr>, q0008_0003 <chr>, q0008_0004 <chr>, q0008_0005 <chr>,
# q0008_0006 <chr>, q0008_0007 <chr>, q0008_0008 <chr>, q0008_0009 <chr>,
# q0008_0010 <chr>, q0008_0011 <chr>, q0008_0012 <chr>, q0009 <chr>, …StartDate and EndDate were kept as record indicatorsAll of this is outlined in the tables below
| Demographic | Column Name | New Column Name |
|---|---|---|
| Race | race2 | Race |
| Ethnicity | racethn4 | Ethnicity |
| Age | age3 | Age |
| Sexual Orientation | orientation | Sexual_Orientation |
| Education | educ4 | Education |
| Question | Column Name | New Column Name |
|---|---|---|
| In general, how masculine or “manly” do you feel? | q0001 | Question_1 |
| How important is it to you that others see you as masculine? | q0002 | Question_2 |
| Do you think that society puts pressure on men in a way that is unhealthy or bad for them? |
q0005 | Question_5 |
| How often would you say you do each of the following? Cry | q0007_0004 | Question_7_4 |
| How often would you say you do each of the following? Watch sports of any kind | q0007_0008 | Question_7_8 |
| How often would you say you do each of the following? See a therapist | q0007_0010 | Question_7_10 |
| How often would you say you do each of the following? Feel lonely or isolated | q0007_0011 | Question_7_11 |
| Which of the following do you worry about on a daily or near daily basis? (Select all that apply.) Your mental health |
q0008_0008 | Question_8_8 |
| Which of the following do you worry about on a daily or near daily basis? (Select all that apply.) Your physical health |
q0008_0009 | Question_8_9 |
# subset and rename columns
menSurveySubset <- menSurvey %>% select(StartDate, EndDate, Age=age3, Race=race2, Ethnicity=racethn4, Education=educ4, Sexual_Orientation=orientation, Question_1=q0001, Question_2=q0002, Question_5=q0005, Question_7_4=q0007_0004, Question_7_8=q0007_0008, Question_7_10=q0007_0010, Question_7_11=q0007_0011, Question_8_8=q0008_0008, Question_8_9=q0008_0009)
head(menSurveySubset)# A tibble: 6 × 16
StartDate EndDate Age Race Ethnicity Education Sexual_Orientat… Question_1
<chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 5/10/18 4… 5/10/1… 35 -… Non-… Hispanic College … Gay/Bisexual Somewhat …
2 5/10/18 6… 5/10/1… 65 a… White White Some col… Straight Somewhat …
3 5/10/18 7… 5/10/1… 35 -… White White College … Straight Very masc…
4 5/10/18 7… 5/10/1… 65 a… White White Some col… No answer Very masc…
5 5/10/18 7… 5/10/1… 35 -… White White College … Straight Very masc…
6 5/10/18 8… 5/10/1… 65 a… White White Post gra… Straight Very masc…
# … with 8 more variables: Question_2 <chr>, Question_5 <chr>,
# Question_7_4 <chr>, Question_7_8 <chr>, Question_7_10 <chr>,
# Question_7_11 <chr>, Question_8_8 <chr>, Question_8_9 <chr># change Yes/No/No Answer to 1/0 or NA
menSurveySubset$Question_5[menSurveySubset$Question_5=="Yes"] <- 1
menSurveySubset$Question_5[menSurveySubset$Question_5=="No"] <- 0
menSurveySubset$Question_5[menSurveySubset$Question_5=="No answer"] <- NA# Convert Question 5 to numeric
menSurveySubset$Question_5 <- as.numeric(menSurveySubset$Question_5)# change any 'Not Selected' values within df to NA
menSurveySubset[(menSurveySubset == "Not selected") | (menSurveySubset == "No answer")] <- NA# view results of transformations
head(menSurveySubset[,c("Sexual_Orientation", "Question_5", "Question_8_8")])# A tibble: 6 × 3
Sexual_Orientation Question_5 Question_8_8
<chr> <dbl> <chr>
1 Gay/Bisexual 1 <NA>
2 Straight 1 Your mental health
3 Straight 0 <NA>
4 <NA> 0 <NA>
5 Straight 1 <NA>
6 Straight 1 <NA> The article concludes suggesting that American men are still fractured about their role in society, and that despite a years worth of the #MeToo headline, it does not mean the majority of men have altered their views on masculinity. For next steps, I think an update to this survey (its from 2018) would be appropriate. The #MeToo movement has continued to remain in the limelight, and if administered again, we would perhaps see significantly different survey results.