## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1
## ✔ purrr 1.0.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
## You can cite this package as:
## Patil, I. (2021). Visualizations with statistical details: The 'ggstatsplot' approach.
## Journal of Open Source Software, 6(61), 3167, doi:10.21105/joss.03167
## ℹ Using "','" as decimal and "'.'" as grouping mark. Use `read_delim()` for more control.
## Rows: 1810 Columns: 396── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (54): version, doi, B_COUNTRY_ALPHA, C_COW_ALPHA, LNGE_ISO, W_WEIGHT, S...
## dbl (336): A_YEAR, B_COUNTRY, C_COW_NUM, D_INTERVIEW, J_INTDATE, FW_START, F...
## num (6): K_TIME_START, K_TIME_END, O1_LONGITUDE, O2_LATITUDE, PWGHT, WEIGHT1B
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
wvs_7_russia <- wvs_7_russia %>%
mutate(across(Q1:Q262, ~na_if(.x, -1)),
across(Q1:Q262, ~na_if(.x, -2)),
across(Q1:Q262, ~na_if(.x, -3)),
across(Q1:Q262, ~na_if(.x, -4)),
across(Q1:Q262, ~na_if(.x, -5))) %>%
mutate(RESEMAVAL = as.numeric(RESEMAVAL),
RESEMAVAL = na_if(RESEMAVAL, -99),
EQUALITY = as.numeric(EQUALITY),
EQUALITY = na_if(EQUALITY, -99),
CHOICE = as.numeric(CHOICE),
CHOICE = na_if(CHOICE, -99),
VOICE = as.numeric(VOICE),
VOICE = na_if(VOICE, -99),
AUTONOMY = as.numeric(AUTONOMY),
AUTONOMY = na_if(AUTONOMY, -99))
wvs_7_russia <- wvs_7_russia %>%
mutate(gender = case_when(
Q260 == 1 ~ "Мужчина",
Q260 == 2 ~ "Женщина"
))
ggstatsplot::ggbetweenstats(
data = wvs_7_russia,
x = gender,
y = EQUALITY,
title = "Сравнение уровня ценностей равенства между мужчинами и женщинами",
xlab = "Пол",
ylab = "Уровень ценностей равенства",
messages = FALSE
)
