Assignment 1

What Do Men Think It Means To Be A Man?

Overview

This is the data behind the story What Do Men Think It Means To Be A Man?.

The masculinity survey contains the results of a survey of 1,615 adult men. They were asked 98 questions or less depending on their previous answers. You can find the article using this link.

Install and Load libraries

library(tidyverse)
library(knitr)
library(kableExtra)

Load the data

masculinity_survey = read.csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/masculinity-survey/raw-responses.csv")

Data manipulation

Find the length of the rows and columns in the data frame

nrow(masculinity_survey)

## [1] 1615

ncol(masculinity_survey)

## [1] 98

We can select the columns we only care about for this analysis

masculinity_survey2 <- masculinity_survey %>% 
  select(q0001,q0002,q0004_0001,age3,kids,orientation,weight)

Let’s give meaningful names to our variables

• In general, how masculine or “manly” do you feel?: q0001
• How important is it to you that others see you as masculine?: q0002
• Where have you gotten your ideas about what it means to be a good man?: q0004_0001
• Age_Group: 18-33, 34-65, 65 and up
• Has kids
• Sexual orientation

masculinity_survey2 <- masculinity_survey2 %>% 
  rename(Feel_Masculine = q0001, 
         Importance_of_Masculinity = q0002,
         Ideas_About_Good_Manhood = q0004_0001,
         Age_Group = age3,
         Has_Kids = kids,
         Sexual_Orientation = orientation,
         Weight = weight)

Let’s load the first 10 observations of the data

head(masculinity_survey2,10) %>%
  kable() %>%
  kable_styling(full_width = FALSE)

Feel_Masculine	Importance_of_Masculinity	Ideas_About_Good_Manhood	Age_Group	Has_Kids	Sexual_Orientation	Weight
Somewhat masculine	Somewhat important	Not selected	35 - 64	No children	Gay/Bisexual	1.7140260
Somewhat masculine	Somewhat important	Father or father figure(s)	65 and up	Has children	Straight	1.2471201
Very masculine	Not too important	Father or father figure(s)	35 - 64	Has children	Straight	0.5157461
Very masculine	Not too important	Father or father figure(s)	65 and up	Has children	No answer	0.6006401
Very masculine	Very important	Not selected	35 - 64	No children	Straight	1.0334005
Very masculine	Somewhat important	Father or father figure(s)	65 and up	Has children	Straight	0.0590866
Somewhat masculine	Not too important	Father or father figure(s)	18 - 34	Has children	Gay/Bisexual	0.2573597
Somewhat masculine	Somewhat important	Father or father figure(s)	65 and up	No children	Straight	0.6564901
Very masculine	Not at all important	Father or father figure(s)	35 - 64	Has children	Straight	4.3418503
Somewhat masculine	Somewhat important	Father or father figure(s)	35 - 64	No children	Straight	0.0574823

Conclusions

These are few questions I can ask to complete this article.

Comparative Analysis:

• How do the feelings of masculinity differ between individuals with and without children (Has_Kids)?
• Are there differences in the importance of masculinity among different sexual orientations?

Correlation Analysis:

• Is there a correlation between age and feelings of masculinity?
• Is there a correlation between the importance of masculinity and weight?