-
Notifications
You must be signed in to change notification settings - Fork 1
/
documentation_usa_male_18to35.Rmd
87 lines (62 loc) · 2.61 KB
/
documentation_usa_male_18to35.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
---
title: "Descriptive Statistics on IPIP-NEO-120 Johnson Dataset"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, comment=NA, fig.width=15, fig.height=6)
library("psych")
source("preparedata.R")
```
## Big Five Dimensions and Facets (USA, male, 18 to 35 years)
### Big Five Dimensions
````{r}
describe(data.usa.male.18to35[, c("NEUROTICISM","EXTRAVERSION", "OPENESS", "AGREEABLENESS", "CONSCIENTIOUSNESS")])
````
### Facets
#### Neuroticism facets
````{r}
describe(data.usa.male.18to35[, c("ANXIETY", "ANGER", "DEPRESSION", "SELFCONSCIOUSNESS", "IMMODERATION", "VULNERABILITY")])
````
#### Extraversion facets
````{r}
describe(data.usa.male.18to35[, c("FRIENDLINESS", "GREGARIOUSNESS", "ASSERTIVENESS", "ACTIVITYLEVEL", "EXCITEMENTSEEKING", "CHEERFULNESS")])
````
#### Openness to experience facets
````{r}
describe(data.usa.male.18to35[, c("IMAGINATION", "ARTISTICINTERESTS", "EMOTIONALITY", "ADVENTUROUSNESS", "INTELLECT", "LIBERALISM")])
````
#### Agreeableness facets
````{r}
describe(data.usa.male.18to35[, c("TRUST", "MORALITY", "ALTRUISM", "COOPERATION", "MODESTY", "SYMPATHY")])
````
#### Conscientiousness facets
````{r}
describe(data.usa.male.18to35[, c("SELFEFFICACY", "ORDERLINESS", "DUTIFULNESS", "ACHIEVEMENTSTRIVING", "SELFDISCIPLINE", "CAUTIONESS")])
````
### Big Five and Facets Boxplots
````{r}
boxplot(data.usa.male.18to35[, c("NEUROTICISM","EXTRAVERSION", "OPENESS", "AGREEABLENESS", "CONSCIENTIOUSNESS")],
main = "Big Five Dimensions",
ylab = "Raw scale values"
)
boxplot(data.usa.male.18to35[, c("ANXIETY", "ANGER", "DEPRESSION", "SELFCONSCIOUSNESS", "IMMODERATION", "VULNERABILITY")],
main = "Neuroticism Facets",
ylab = "Raw scale values"
)
boxplot(data.usa.male.18to35[, c("FRIENDLINESS", "GREGARIOUSNESS", "ASSERTIVENESS", "ACTIVITYLEVEL", "EXCITEMENTSEEKING", "CHEERFULNESS")],
main = "Extraversion Facets",
ylab = "Raw scale values"
)
boxplot(data.usa.male.18to35[, c("IMAGINATION", "ARTISTICINTERESTS", "EMOTIONALITY", "ADVENTUROUSNESS", "INTELLECT", "LIBERALISM")],
main = "Openness to Experience Facets",
ylab = "Raw scale values"
)
boxplot(data.usa.male.18to35[, c("TRUST", "MORALITY", "ALTRUISM", "COOPERATION", "MODESTY", "SYMPATHY")],
main = "Agreeableness Facets",
ylab = "Raw scale values"
)
boxplot(data.usa.male.18to35[, c("SELFEFFICACY", "ORDERLINESS", "DUTIFULNESS", "ACHIEVEMENTSTRIVING", "SELFDISCIPLINE", "CAUTIONESS")],
main = "Conscientiousness Facets",
ylab = "Raw scale values"
)
````